diff options
Diffstat (limited to 'racket/aoc2023/day-09/day-09-polynomial.rkt')
| -rw-r--r-- | racket/aoc2023/day-09/day-09-polynomial.rkt | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/racket/aoc2023/day-09/day-09-polynomial.rkt b/racket/aoc2023/day-09/day-09-polynomial.rkt new file mode 100644 index 0000000..5bacb1f --- /dev/null +++ b/racket/aoc2023/day-09/day-09-polynomial.rkt @@ -0,0 +1,17 @@ +#lang racket + +(require advent-of-code + threading + simple-polynomial/tools) + +(define histories + (for/list ([raw-history (in-lines (open-aoc-input (find-session) 2023 9 #:cache #true))]) + (~>> raw-history + string-split + (map string->number)))) + +(for/lists (left right #:result (cons (apply + left) (apply + right))) + ([history (in-list histories)]) + (define f (interpolate-at-integer-points history)) + (values (f -1) + (f (length history)))) |