From 1f8931aaf74ac4b7fa6c33d6232c3fd8e9f2c3c8 Mon Sep 17 00:00:00 2001
From: pingu <nor@acorneroftheweb.com>
Date: Mon, 2 Dec 2024 08:36:57 +0100
Subject: [PATCH] Reuse 1

---
 app/2.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/app/2.hs b/app/2.hs
index 4769fe3..fa88c1a 100644
--- a/app/2.hs
+++ b/app/2.hs
@@ -15,15 +15,10 @@ solve1 =
 solve2 :: [[Int]] -> Int
 solve2 =
   let r [] = [[]]
-      r (r':rs) = rs:((r':) <$> r rs)
-      di a = all (\a' -> a' <  4 && not (a' <= 0)) a ||
-             all (\a' -> a' > -4 && not (a' >= 0)) a in
-  sum . ((\a ->
-            if any (\b -> di $ zipWith (flip (-)) b (tail b)) a
-            then 1 else 0) .
+      r (r':rs) = rs:((r':) <$> r rs) in
+  sum . (((\a -> if a > 0 then 1 else 0) . solve1 ) .
          r <$>)
 
-
 main :: IO ()
 main = readFile "inputs/2" <&> parse >>= \i ->
        print (solve1 i) >>