adventofcode
/
2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Day 02.

This commit is contained in:
Jonathan Chan 2021-12-01 21:37:35 -08:00
parent ed2c912d10
commit f94d7d40a8
2 changed files with 1027 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1000
input/02.txt Normal file
View File

File diff suppressed because it is too large Load Diff

27
src/02.rkt Normal file
View File

@ -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)