simplify

glguy · Dec 9, 2023 · 15b907e · 15b907e
1 parent e24480e
commit 15b907e
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/solutions/src/2023/09.hs b/solutions/src/2023/09.hs
@@ -38,10 +38,7 @@ main =
     print (sum (map (nextInSequence . reverse) input))
 
 nextInSequence :: [Int] -> Int
-nextInSequence = sum . map last . allDifferences
-
-allDifferences :: [Int] -> [[Int]]
-allDifferences = takeWhile (any (0 /=)) . iterate differences
+nextInSequence = sum . map last . takeWhile (any (0 /=)) . iterate differences
 
 differences :: [Int] -> [Int]
 differences xs = zipWith (-) (tail xs) xs