aboutsummaryrefslogtreecommitdiff
path: root/aoc2021/day-01/day-01.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'aoc2021/day-01/day-01.rkt')
-rw-r--r--aoc2021/day-01/day-01.rkt20
1 files changed, 0 insertions, 20 deletions
diff --git a/aoc2021/day-01/day-01.rkt b/aoc2021/day-01/day-01.rkt
deleted file mode 100644
index 48ef158..0000000
--- a/aoc2021/day-01/day-01.rkt
+++ /dev/null
@@ -1,20 +0,0 @@
-#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