diff options
| author | J.J <thechairman@thechairman.info> | 2023-11-30 17:10:00 -0500 |
|---|---|---|
| committer | J.J <thechairman@thechairman.info> | 2023-11-30 17:10:00 -0500 |
| commit | 8ab65dc2da1742eb86ec636c50c7018385b68167 (patch) | |
| tree | c4fd556aca9b867cfa1f2f174128c30857353884 /2020/day-15 | |
| parent | fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 (diff) | |
| download | gleam_aoc-8ab65dc2da1742eb86ec636c50c7018385b68167.tar.gz gleam_aoc-8ab65dc2da1742eb86ec636c50c7018385b68167.zip | |
prep for 2023, renaming for consistency
Diffstat (limited to '2020/day-15')
| -rw-r--r-- | 2020/day-15/day-15.rkt | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/2020/day-15/day-15.rkt b/2020/day-15/day-15.rkt deleted file mode 100644 index 4dd9e88..0000000 --- a/2020/day-15/day-15.rkt +++ /dev/null @@ -1,22 +0,0 @@ -#lang rackjure - -(define first-numbers '(2 20 0 4 1 17)) - -(define number-hash - (for/hash ([(xs i) (in-indexed (drop-right first-numbers 1))]) - (values xs (add1 i)))) - -(define starting-round (~> number-hash hash-values (apply max _) (+ 2))) - -(define (find-spoken-number-at end) - (for/fold ([ns number-hash] [previous-number (last first-numbers)] #:result previous-number) - ([rnd (inclusive-range starting-round end)]) - (define next-spoken-number - (match (ns previous-number) - [#f 0] - [n (- (sub1 rnd) n)])) - (values (ns previous-number (sub1 rnd)) next-spoken-number))) - -(find-spoken-number-at 2020) - -(find-spoken-number-at 30000000)
\ No newline at end of file |