From f504d00a116a5f8ee090188a98ad54f894a9732b Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 2 Dec 2021 16:11:20 +0100
Subject: rakete

---
 2021/02/solve.rkt | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 2021/02/solve.rkt

(limited to '2021/02/solve.rkt')

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)))
-- 
cgit v1.2.3