From feccf3f6f0a806b3317d1f399e3e8b42945c4f09 Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Sat, 26 Nov 2022 01:43:33 -0500 Subject: using raco fmt, replacing missing dependency --- 2021/day-02/day-02.rkt | 31 ++++++++----------------------- 1 file changed, 8 insertions(+), 23 deletions(-) (limited to '2021/day-02/day-02.rkt') diff --git a/2021/day-02/day-02.rkt b/2021/day-02/day-02.rkt index dbd1275..0bd0c3d 100644 --- a/2021/day-02/day-02.rkt +++ b/2021/day-02/day-02.rkt @@ -9,31 +9,16 @@ (chunks-of _ 2))) ;; part 1 -(for/fold ([depth 0] - [position 0] - #:result (* depth position)) - ([motion (in-list motion-data)]) +(for/fold ([depth 0] [position 0] #:result (* depth position)) ([motion (in-list motion-data)]) (match motion - [(list 'forward x) (values depth - (+ position x))] - [(list 'up x) (values (- depth x) - position)] - [(list 'down x) (values (+ depth x) - position)])) + [(list 'forward x) (values depth (+ position x))] + [(list 'up x) (values (- depth x) position)] + [(list 'down x) (values (+ depth x) position)])) ;; part 2 -(for/fold ([aim 0] - [depth 0] - [position 0] - #:result (* depth position)) +(for/fold ([aim 0] [depth 0] [position 0] #:result (* depth position)) ([motion (in-list motion-data)]) (match motion - [(list 'forward x) (values aim - (+ depth (* aim x)) - (+ position x))] - [(list 'up x) (values (- aim x) - depth - position)] - [(list 'down x) (values (+ aim x) - depth - position)])) \ No newline at end of file + [(list 'forward x) (values aim (+ depth (* aim x)) (+ position x))] + [(list 'up x) (values (- aim x) depth position)] + [(list 'down x) (values (+ aim x) depth position)])) -- cgit v1.2.3