sorting by language

1 files changed, 20 insertions, 0 deletions

diff --git a/racket/aoc2021/day-01/day-01.rkt b/racket/aoc2021/day-01/day-01.rkt
new file mode 100644
index 0000000..48ef158
--- /dev/null
+++ b/racket/aoc2021/day-01/day-01.rkt
@@ -0,0 +1,20 @@
+#lang racket
+(require advent-of-code
+         threading)
+
+;; part 1
+(define sensor-data
+  (~> (open-aoc-input (find-session) 2021 1 #:cache (string->path "./cache"))
+      (port->list read _)))
+
+(define (count-increases data offset)
+  (for/sum ([x (in-list data)]
+            [y (in-list (drop data offset))]
+            #:when (< x y))
+    1))
+
+(~a "Part 1: " (count-increases sensor-data 1))
+
+;; part 2
+
+(~a "Part 2: " (count-increases sensor-data 3))
\ No newline at end of file