pingu/aoc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reuse 1

Browse Source
This commit is contained in:
pingu 2024-12-02 08:36:57 +01:00
parent c4d8bef5f7
commit 5b1fd043e7
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/2.hs
View File

@ -15,15 +15,10 @@ solve1 =
solve2 :: [[Int]] -> Int solve2 :: [[Int]] -> Int
solve2 = solve2 =
let r [] = [[]] let r [] = [[]]
r (r':rs) = rs:((r':) <$> r rs) r (r':rs) = rs:((r':) <$> r rs) in
di a = all (\a' -> a' < 4 && not (a' <= 0)) a || sum . ((\a -> if a > 0 then 1 else 0) . solve1 .
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 <$>)
main :: IO () main :: IO ()
main = readFile "inputs/2" <&> parse >>= \i -> main = readFile "inputs/2" <&> parse >>= \i ->
print (solve1 i) >> print (solve1 i) >>