slightly more defined

glguy · Dec 9, 2023 · f4eaea1 · f4eaea1
1 parent 15b907e
commit f4eaea1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/solutions/src/2023/09.hs b/solutions/src/2023/09.hs
@@ -41,4 +41,4 @@ nextInSequence :: [Int] -> Int
 nextInSequence = sum . map last . takeWhile (any (0 /=)) . iterate differences
 
 differences :: [Int] -> [Int]
-differences xs = zipWith (-) (tail xs) xs
+differences xs = zipWith subtract xs (tail xs)