refactor(2024.02-haskell): tidy a bit

yurrriq · Dec 21, 2024 · 5f6c3b9 · 5f6c3b9
1 parent 2839b28
commit 5f6c3b9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-2024.5.1.1
+2024.5.1.2
diff --git a/src/AdventOfCode/Year2024/Day02.hs b/src/AdventOfCode/Year2024/Day02.hs
@@ -29,7 +29,6 @@ example =
   ]
 
 isSafe :: [Integer] -> Bool
-isSafe xs = all (== head signs) (tail signs) && all (inRange (1, 3) . abs) diffs
+isSafe xs = any (all (inRange (1, 3))) [diffs, negate <$> diffs]
   where
-    diffs = zipWith (-) (tail xs) xs
-    signs = map signum diffs
+    diffs = zipWith subtract xs (tail xs)