diff options
| author | H.J <thechairman@thechairman.info> | 2024-10-09 11:36:55 -0400 |
|---|---|---|
| committer | H.J <thechairman@thechairman.info> | 2024-10-09 11:36:55 -0400 |
| commit | 8777ff071f7bb37631baa7b6717ad29961e50911 (patch) | |
| tree | 6d59c4ed58e454b960339c3d1151f0a879e8d7cb /aoc2020/day-15/day-15.rkt | |
| parent | 6156a9ef7be4012063a042aafb4e9b0d7eadde8e (diff) | |
| download | gleam_aoc-8777ff071f7bb37631baa7b6717ad29961e50911.tar.gz gleam_aoc-8777ff071f7bb37631baa7b6717ad29961e50911.zip | |
sorting by language
Diffstat (limited to 'aoc2020/day-15/day-15.rkt')
| -rw-r--r-- | aoc2020/day-15/day-15.rkt | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/aoc2020/day-15/day-15.rkt b/aoc2020/day-15/day-15.rkt deleted file mode 100644 index 4dd9e88..0000000 --- a/aoc2020/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 |