From 5b1fd043e7dc855e15e4a27a52e3047cc3e0a461 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..ded3975 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) >>