From feccf3f6f0a806b3317d1f399e3e8b42945c4f09 Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Sat, 26 Nov 2022 01:43:33 -0500 Subject: using raco fmt, replacing missing dependency --- 2021/day-07/day-07.rkt | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to '2021/day-07') diff --git a/2021/day-07/day-07.rkt b/2021/day-07/day-07.rkt index 81a2e4f..89d5009 100644 --- a/2021/day-07/day-07.rkt +++ b/2021/day-07/day-07.rkt @@ -10,21 +10,19 @@ (string-split ",") (map string->number _))) -(define (gauss-sum n) (/ (* n (+ n 1)) 2)) +(define (gauss-sum n) + (/ (* n (+ n 1)) 2)) (define (compute-fuel-use f crabs align-to) - (for/sum ([crab (in-list crabs)]) - (f (abs (- crab align-to))))) + (for/sum ([crab (in-list crabs)]) (f (abs (- crab align-to))))) ;; using the fact that the optimum location is at the median ;; of the crabs' starting location for the linear relationship ;; and at a coordinate within 1 unit of the mean for the quadratic one -(~>> crab-data - (median <) - (compute-fuel-use identity crab-data)) +(~>> crab-data (median <) (compute-fuel-use identity crab-data)) (~>> crab-data mean ((λ (m) (list (floor m) (ceiling m)))) (map (curry compute-fuel-use gauss-sum crab-data)) - (apply min)) \ No newline at end of file + (apply min)) -- cgit v1.2.3