diff options
| author | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-11-26 01:43:33 -0500 |
|---|---|---|
| committer | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-11-26 01:43:33 -0500 |
| commit | feccf3f6f0a806b3317d1f399e3e8b42945c4f09 (patch) | |
| tree | bf15ce045d1106c1b7f7de30c27540f40d0bf947 /2015/day-25 | |
| parent | 8b624fe7d2751337b1f16830cc9c041df73e99e7 (diff) | |
| download | gleam_aoc-feccf3f6f0a806b3317d1f399e3e8b42945c4f09.tar.gz gleam_aoc-feccf3f6f0a806b3317d1f399e3e8b42945c4f09.zip | |
using raco fmt, replacing missing dependency
Diffstat (limited to '2015/day-25')
| -rw-r--r-- | 2015/day-25/day-25.rkt | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/2015/day-25/day-25.rkt b/2015/day-25/day-25.rkt index 786538c..975f4c3 100644 --- a/2015/day-25/day-25.rkt +++ b/2015/day-25/day-25.rkt @@ -3,14 +3,6 @@ (define max-r 2978) (define max-c 3083) -(for/fold ([code 20151125] - [r 1] - [c 1]) - ([i (in-naturals)] - #:break (and (= max-r r) - (= max-c c))) - (define new-code - (modulo (* code 252533) 33554393)) - (if (= r 1) - (values new-code (add1 c) 1) - (values new-code (sub1 r) (add1 c)))) +(for/fold ([code 20151125] [r 1] [c 1]) ([i (in-naturals)] #:break (and (= max-r r) (= max-c c))) + (define new-code (modulo (* code 252533) 33554393)) + (if (= r 1) (values new-code (add1 c) 1) (values new-code (sub1 r) (add1 c)))) |