From f94d7d40a8d05afd0a0483e050757edcf3ecf16e Mon Sep 17 00:00:00 2001
From: Jonathan Chan <jonathanhwchan@gmail.com>
Date: Wed, 1 Dec 2021 21:37:35 -0800
Subject: [PATCH] Day 02.

---
 input/02.txt | 1000 ++++++++++++++++++++++++++++++++++++++++++++++++++
 src/02.rkt   |   27 ++
 2 files changed, 1027 insertions(+)
 create mode 100644 input/02.txt
 create mode 100644 src/02.rkt

diff --git a/input/02.txt b/input/02.txt
new file mode 100644
index 0000000..d054d4e
--- /dev/null
+++ b/input/02.txt
@@ -0,0 +1,1000 @@
+forward 5
+forward 1
+forward 3
+down 8
+up 6
+down 5
+forward 6
+down 9
+down 7
+up 9
+down 9
+forward 5
+forward 3
+down 3
+forward 1
+forward 8
+down 8
+forward 6
+forward 9
+forward 5
+down 8
+up 1
+forward 4
+forward 8
+down 4
+forward 2
+down 1
+up 8
+up 9
+down 4
+forward 5
+up 9
+forward 1
+down 9
+down 7
+down 4
+down 6
+down 3
+forward 5
+up 4
+up 7
+forward 1
+down 1
+up 3
+forward 8
+down 8
+up 2
+forward 2
+down 7
+down 7
+down 4
+forward 3
+down 5
+up 8
+down 6
+up 2
+down 7
+forward 8
+down 7
+down 7
+up 6
+forward 8
+up 1
+down 4
+forward 1
+down 1
+down 9
+down 1
+down 7
+forward 2
+forward 3
+up 8
+up 1
+forward 4
+forward 7
+forward 9
+up 8
+down 9
+down 3
+down 5
+down 5
+forward 7
+forward 3
+up 7
+forward 6
+up 6
+forward 3
+down 2
+down 5
+down 2
+up 6
+down 5
+down 5
+forward 7
+forward 2
+forward 7
+down 6
+forward 1
+forward 8
+up 6
+forward 2
+down 5
+forward 3
+up 2
+forward 3
+down 2
+forward 4
+forward 6
+down 8
+forward 7
+forward 6
+down 1
+down 8
+forward 7
+up 2
+forward 2
+down 7
+up 6
+forward 7
+down 9
+down 7
+forward 4
+down 9
+down 4
+forward 6
+up 6
+up 5
+down 5
+up 7
+forward 6
+down 1
+down 5
+forward 1
+up 6
+forward 1
+down 7
+forward 7
+forward 4
+up 5
+down 3
+forward 7
+forward 6
+up 9
+forward 8
+forward 1
+up 2
+up 8
+forward 7
+up 7
+down 1
+forward 9
+down 5
+forward 5
+forward 2
+forward 2
+forward 6
+up 5
+up 1
+forward 6
+up 3
+down 7
+down 6
+down 1
+forward 1
+forward 8
+forward 8
+down 8
+up 3
+down 7
+down 2
+down 9
+forward 9
+down 7
+forward 4
+down 9
+forward 8
+down 1
+down 5
+down 9
+down 8
+forward 8
+down 3
+forward 4
+forward 6
+up 3
+forward 4
+down 9
+down 6
+up 6
+up 3
+down 2
+up 1
+forward 5
+down 7
+down 3
+forward 5
+up 1
+forward 2
+down 3
+down 3
+forward 6
+down 5
+down 7
+down 1
+down 2
+down 7
+forward 4
+forward 7
+down 7
+forward 6
+forward 2
+down 1
+down 8
+forward 5
+forward 5
+down 7
+forward 6
+forward 7
+up 2
+forward 5
+down 8
+forward 7
+down 7
+up 6
+forward 6
+down 2
+down 7
+forward 6
+forward 4
+down 5
+down 7
+forward 2
+forward 6
+forward 6
+down 7
+down 9
+forward 9
+forward 4
+up 9
+up 2
+up 2
+forward 4
+down 6
+forward 7
+up 5
+forward 1
+forward 6
+down 8
+forward 2
+down 8
+forward 9
+forward 5
+forward 1
+up 8
+down 4
+down 2
+down 9
+up 6
+forward 8
+down 9
+forward 3
+down 3
+down 9
+down 9
+down 6
+forward 7
+down 4
+forward 8
+down 7
+down 8
+up 4
+up 3
+forward 1
+up 9
+up 1
+up 9
+up 7
+down 1
+forward 5
+forward 7
+forward 3
+forward 8
+up 4
+forward 7
+down 5
+forward 9
+up 3
+up 3
+down 2
+forward 3
+up 3
+down 3
+down 4
+up 6
+down 7
+down 1
+down 7
+forward 1
+down 4
+forward 9
+down 9
+up 8
+up 5
+down 7
+up 1
+forward 6
+down 1
+down 4
+down 3
+forward 7
+forward 4
+up 6
+down 2
+down 1
+forward 1
+up 5
+down 2
+down 9
+up 2
+up 3
+forward 5
+forward 5
+down 8
+down 4
+up 4
+down 1
+forward 8
+up 7
+down 1
+down 4
+forward 3
+up 4
+down 4
+down 5
+down 9
+down 1
+down 7
+up 2
+down 6
+up 9
+down 3
+down 1
+down 8
+down 4
+up 2
+forward 6
+forward 9
+down 6
+forward 6
+forward 4
+forward 8
+forward 5
+forward 6
+forward 9
+down 3
+forward 8
+forward 6
+forward 7
+up 9
+forward 3
+up 3
+forward 5
+down 5
+up 9
+forward 1
+forward 9
+down 7
+forward 5
+forward 5
+forward 6
+forward 5
+forward 9
+forward 8
+forward 3
+down 2
+forward 6
+forward 8
+down 4
+forward 4
+forward 1
+forward 1
+down 2
+forward 2
+forward 5
+up 4
+forward 3
+down 3
+down 5
+down 6
+forward 4
+down 8
+down 4
+forward 5
+down 7
+up 3
+up 6
+forward 3
+forward 2
+forward 5
+down 9
+down 4
+down 8
+down 2
+forward 4
+forward 7
+down 4
+up 5
+forward 8
+down 8
+down 1
+forward 5
+down 6
+down 9
+up 6
+forward 9
+down 3
+forward 6
+forward 2
+down 5
+forward 1
+down 1
+down 1
+forward 2
+up 9
+down 1
+up 8
+forward 9
+up 8
+forward 2
+forward 8
+up 2
+forward 4
+down 5
+forward 8
+up 2
+up 1
+forward 4
+up 4
+up 3
+up 5
+down 1
+forward 3
+forward 6
+forward 9
+forward 6
+up 8
+forward 2
+forward 1
+down 2
+down 3
+down 2
+up 4
+forward 5
+up 2
+forward 3
+forward 9
+up 5
+forward 1
+down 7
+forward 9
+down 5
+up 7
+down 6
+forward 7
+forward 9
+up 6
+forward 3
+down 1
+forward 1
+down 8
+down 2
+up 9
+down 4
+down 4
+down 7
+forward 4
+forward 1
+forward 6
+down 9
+down 9
+down 9
+forward 1
+forward 6
+forward 3
+forward 7
+forward 3
+forward 9
+up 8
+forward 5
+down 1
+down 6
+up 8
+forward 3
+up 8
+down 6
+forward 6
+up 2
+up 8
+up 5
+forward 9
+down 4
+up 1
+up 3
+up 2
+down 9
+down 1
+forward 7
+down 2
+forward 6
+up 4
+down 7
+forward 1
+down 3
+down 5
+forward 1
+down 3
+down 1
+forward 8
+up 5
+forward 5
+forward 8
+forward 8
+forward 8
+forward 2
+down 3
+down 6
+up 2
+up 2
+down 1
+up 7
+down 9
+up 1
+up 4
+forward 1
+forward 4
+up 4
+up 6
+forward 5
+forward 2
+forward 7
+up 8
+up 3
+down 5
+down 9
+forward 4
+forward 5
+forward 5
+down 1
+up 8
+up 2
+forward 3
+up 2
+forward 8
+up 2
+down 6
+up 7
+forward 6
+down 3
+forward 3
+down 6
+forward 6
+forward 4
+forward 8
+down 8
+up 7
+down 7
+down 2
+up 5
+up 2
+down 4
+forward 5
+down 3
+up 4
+down 2
+up 2
+down 7
+forward 4
+forward 3
+forward 6
+down 2
+down 8
+forward 3
+forward 4
+forward 4
+down 4
+down 3
+up 6
+down 2
+forward 7
+forward 4
+down 7
+forward 1
+up 6
+forward 3
+up 3
+up 7
+forward 6
+down 9
+down 8
+down 3
+forward 8
+forward 1
+up 3
+down 5
+down 3
+forward 1
+up 9
+down 6
+forward 3
+down 9
+up 7
+forward 5
+forward 4
+forward 7
+up 3
+forward 3
+down 5
+forward 7
+forward 9
+down 6
+forward 7
+forward 5
+up 6
+forward 3
+forward 3
+down 7
+forward 4
+up 2
+forward 8
+down 7
+up 7
+down 7
+forward 6
+up 3
+forward 2
+up 7
+down 3
+down 4
+down 1
+forward 3
+forward 5
+up 7
+forward 3
+down 1
+down 2
+up 4
+forward 2
+up 5
+down 4
+forward 1
+down 6
+up 1
+forward 5
+forward 1
+down 8
+forward 7
+down 7
+forward 4
+forward 7
+forward 3
+forward 2
+forward 1
+forward 7
+down 1
+forward 9
+forward 9
+forward 8
+forward 9
+forward 8
+forward 5
+forward 1
+up 5
+forward 3
+forward 6
+forward 1
+up 4
+down 1
+down 9
+down 6
+forward 4
+up 9
+down 3
+forward 2
+down 3
+up 2
+forward 4
+forward 4
+down 7
+forward 9
+forward 3
+down 4
+up 4
+down 4
+forward 7
+forward 3
+forward 6
+forward 9
+down 4
+down 5
+down 2
+forward 4
+up 6
+forward 8
+forward 3
+down 2
+down 5
+forward 4
+down 8
+up 5
+down 3
+forward 6
+down 8
+up 9
+forward 3
+forward 8
+forward 6
+forward 7
+down 3
+up 6
+down 7
+down 4
+forward 2
+forward 5
+down 1
+down 5
+down 5
+forward 6
+forward 6
+down 1
+forward 2
+up 1
+down 2
+down 3
+forward 3
+forward 9
+down 9
+down 1
+up 8
+down 5
+down 2
+up 7
+forward 8
+up 7
+forward 3
+forward 6
+down 2
+down 3
+forward 1
+down 6
+down 1
+forward 4
+up 2
+down 3
+up 7
+down 3
+down 2
+up 8
+up 7
+down 3
+forward 4
+down 8
+up 2
+down 6
+forward 9
+down 1
+up 3
+up 1
+down 4
+up 6
+down 2
+forward 1
+down 6
+forward 4
+forward 3
+down 7
+down 2
+down 6
+down 2
+down 7
+forward 2
+down 1
+up 8
+up 6
+up 1
+forward 5
+down 9
+down 5
+up 7
+down 4
+forward 4
+forward 5
+up 5
+forward 6
+forward 1
+forward 5
+forward 1
+forward 6
+down 6
+forward 3
+up 4
+forward 6
+down 6
+forward 1
+forward 5
+forward 8
+down 3
+forward 6
+forward 1
+up 1
+up 7
+forward 7
+forward 8
+up 6
+forward 9
+up 5
+forward 1
+forward 5
+down 3
+up 3
+up 9
+forward 9
+forward 5
+forward 3
+forward 2
+forward 4
+down 6
+up 5
+down 2
+forward 5
+down 2
+down 5
+down 6
+forward 7
+down 2
+forward 7
+forward 2
+forward 8
+up 1
+forward 9
+down 2
+up 1
+down 9
+forward 8
+forward 3
+up 9
+down 1
+down 1
+down 8
+up 4
+up 9
+forward 9
+forward 3
+down 9
+forward 3
+forward 4
+down 8
+forward 8
+forward 7
+down 9
+up 2
+down 9
+down 8
+down 9
+forward 4
+up 6
+down 4
+forward 8
+forward 5
+up 2
+forward 5
+down 3
+forward 6
+down 5
+forward 8
+up 3
+down 5
+down 4
+forward 5
+up 3
+up 8
+forward 1
+up 8
+forward 4
+down 4
+forward 7
+forward 5
+forward 7
+forward 9
+up 1
+down 6
+forward 8
+up 1
+down 5
+up 6
+down 9
+down 5
+forward 3
+up 1
+forward 4
+up 4
+down 4
+forward 5
+forward 8
+down 2
+up 7
+down 6
+forward 7
+up 7
+forward 5
+down 2
+forward 9
+forward 1
+down 9
+down 8
+forward 7
+forward 7
+forward 1
+up 3
+up 1
+forward 2
+down 2
+up 9
+down 2
+forward 7
+down 1
+down 5
+down 4
+up 7
+forward 1
+down 3
+forward 9
+down 6
+forward 4
+down 4
+down 9
+down 3
+up 3
+down 3
+up 8
+down 2
+forward 1
+forward 5
+forward 5
+down 2
+forward 7
+down 7
+down 6
+forward 6
+up 5
+down 4
+down 8
+down 7
+forward 7
+up 3
+down 3
+down 3
+forward 8
+forward 5
+down 1
+up 6
+down 3
+up 2
+down 6
+up 7
+down 4
+up 2
+forward 4
+forward 9
+forward 9
+up 1
+forward 7
+up 7
+forward 7
+forward 6
+forward 3
+forward 1
+down 5
+down 3
+forward 4
+up 9
+down 5
+up 2
+down 6
+down 5
+forward 6
+forward 4
+up 7
+up 6
+down 9
+forward 4
+up 1
+up 6
+up 3
+forward 9
+forward 3
+forward 9
+down 7
+forward 6
+down 6
+forward 8
diff --git a/src/02.rkt b/src/02.rkt
new file mode 100644
index 0000000..dd295ca
--- /dev/null
+++ b/src/02.rkt
@@ -0,0 +1,27 @@
+#lang racket
+
+(require "../lib.rkt")
+
+(define input
+  (for/list ([line (problem-input 2)])
+    (match (string-split line " ")
+      [`(,dir ,val) (list (string->symbol dir) (string->number val))])))
+
+(define part1
+  (let ([horiz (sum (filter-map (match-lambda [`(forward ,n) n] [else #f]) input))]
+        [ups   (sum (filter-map (match-lambda [`(up      ,n) n] [else #f]) input))]
+        [downs (sum (filter-map (match-lambda [`(down    ,n) n] [else #f]) input))])
+    (* horiz (- downs ups))))
+
+(define part2
+  (for/fold ([aim 0]
+             [horiz 0]
+             [depth 0]
+             #:result (* horiz depth))
+            ([dir-val input])
+    (match dir-val
+      [`(forward ,val) (values aim (+ horiz val) (+ depth (* aim val)))]
+      [`(up   ,val) (values (- aim val) horiz depth)]
+      [`(down ,val) (values (+ aim val) horiz depth)])))
+
+(show-solution part1 part2)
\ No newline at end of file