day09: remove f

the wisdom of Karl has spoken
2023-12-09 17:42:03 +01:00 · 2023-12-09 17:42:03 +01:00 · c970abf345
parent 946d42ee8a
commit c970abf345
1 changed files with 1 additions and 3 deletions
--- a/2023/day09/day09.hs
+++ b/2023/day09/day09.hs
@ -13,7 +13,5 @@ day09 =
  (sum *** sum) .
  unzip .
  map
-    ((f (+) last &&& f (-) head) .
+    ((sum . map last &&& foldr1 (-) . map head) .
     takeWhile (not . null) . iterate (zipWith (-) =<< tail))
-  where
-    f f1 f2 = foldr1 f1 . map f2