From 40eb8465f7958ac056a3843d38234848b15464f7 Mon Sep 17 00:00:00 2001 From: HJ Date: Mon, 25 Dec 2023 11:24:39 -0500 Subject: day 1-24 end-of-year style cleanup --- aoc2023-other/day-09/day-09.rkt | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) (limited to 'aoc2023-other/day-09/day-09.rkt') diff --git a/aoc2023-other/day-09/day-09.rkt b/aoc2023-other/day-09/day-09.rkt index c632150..5eda1eb 100644 --- a/aoc2023-other/day-09/day-09.rkt +++ b/aoc2023-other/day-09/day-09.rkt @@ -5,18 +5,28 @@ (define histories (for/list ([raw-history (in-lines (open-aoc-input (find-session) 2023 9 #:cache #true))]) - (~>> raw-history string-split (map string->number)))) + (~>> raw-history + string-split + (map string->number)))) -(define (constant? xs) (= 1 (length (remove-duplicates xs)))) +(define (constant? xs) + (= 1 (length (remove-duplicates xs)))) (define/match (derivative xs) [((list a b)) (list (- b a))] [((list* a b _)) (cons (- b a) (derivative (rest xs)))]) -(define (extrapolate xs) (if (constant? xs) (car xs) (+ (last xs) (extrapolate (derivative xs))))) +(define (extrapolate xs) + (if (constant? xs) + (car xs) + (+ (last xs) (extrapolate (derivative xs))))) ;; part 1 -(~>> histories (map extrapolate) (apply +)) +(~>> histories + (map extrapolate) + (apply +)) ;; part 2 -(~>> histories (map (λ~> reverse extrapolate)) (apply +)) +(~>> histories + (map (λ~> reverse extrapolate)) + (apply +)) -- cgit v1.2.3