rakete

2 files changed, 49 insertions, 0 deletions

diff --git a/2021/01/solve.rkt b/2021/01/solve.rkt
new file mode 100644
index 0000000..4f1401d
--- /dev/null
+++ b/2021/01/solve.rkt
@@ -0,0 +1,12 @@
+#lang racket
+
+(define LINES (map string->number (file->lines "input")))
+
+(define (solve offset)
+  (for/sum ([x (in-list LINES)]
+	    [y (in-list (drop LINES offset))]
+	    #:when (< x y))
+    1))
+
+(solve 1)
+(solve 3)
diff --git a/2021/02/solve.rkt b/2021/02/solve.rkt
new file mode 100644
index 0000000..4a10d4d
--- /dev/null
+++ b/2021/02/solve.rkt
@@ -0,0 +1,37 @@
+#lang racket
+
+(define LINES (map
+		(lambda (line)
+		  (let ((command (string-split line)))
+		    (cons
+		      (first command)
+		      (map string->number (rest command)))))
+		(file->lines "input")))
+
+(define (part-1)
+  (for/fold ([horizontal 0]
+	     [depth 0]
+	     #:result (* horizontal depth))
+    ([command (in-list LINES)])
+    (match command
+      [(list "forward" amount) (values (+ horizontal amount) depth)]
+      [(list "up" amount) (values horizontal (- depth amount))]
+      [(list "down" amount) (values horizontal (+ depth amount))]
+      [_ (error "invalid command")])))
+
+(define (part-2)
+  (for/fold ([aim 0]
+	     [horizontal 0]
+	     [depth 0]
+	     #:result (* horizontal depth))
+    ([command (in-list LINES)])
+    (match command
+      [(list "forward" amount) (values aim (+ horizontal amount) (+ depth (* aim amount)))]
+      [(list "up" amount) (values (- aim amount) horizontal depth)]
+      [(list "down" amount) (values (+ aim amount) horizontal depth)]
+      [_ (error "invalid command")])))
+
+(time
+  (values
+    (part-1)
+    (part-2)))