blob: 5bacb1fa9c1e1414a608a25a2bbe27adf0afae0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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))))
|
