chayleaf/aoc2021
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

day 2 racket

Browse source
This commit is contained in:
chayleaf 2021-12-03 02:20:27 +07:00
parent 4a331229a2
commit 3955e35520
2 changed files with 35 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
rkt/02.1.rkt Normal file
View file

@ -0,0 +1,17 @@
#lang racket
(let-values ([(x y)
(with-input-from-file "../input/02"
(lambda ()
(for/fold ([x 0]
[y 0])
([line (in-lines)])
(let ([s (string-split line)])
(let ([op (car s)]
[num (string->number (car (cdr s)))])
(match op
["up" (values x (- y num))]
["down" (values x (+ y num))]
["forward" (values (+ x num) y)]))))))
]) (values (cons x y) (* x y)))

18
rkt/02.2.rkt Normal file
View file

@ -0,0 +1,18 @@
#lang racket
(let-values ([(_ x y)
(with-input-from-file "../input/02"
(lambda ()
(for/fold ([aim 0]
[x 0]
[y 0])
([line (in-lines)])
(let ([s (string-split line)])
(let ([op (car s)]
[num (string->number (car (cdr s)))])
(match op
["up" (values (- aim num) x y)]
["down" (values (+ aim num) x y)]
["forward" (values aim (+ x num) (+ y (* aim num)))]))))))
]) (values (cons x y) (* x y)))