tlater/adventofcode-2021
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

day3: Significantly improve answer

Browse source
This commit is contained in:
Tristan Daniël Maat 2021-12-06 04:47:33 +00:00
parent 1b7f5d83a0
commit 04a9814f1c
Signed by: tlater
GPG key ID: 49670FD774E43268
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
3/diagnosticReader.hs
View file

@ -46,10 +46,7 @@ listToBit list = foldr (\b acc -> (acc + toBit b)) 0 (enumerate (reverse list))
else 0
filterForLife :: ([Int] -> Int) -> [[Int]] -> [[Int]]
filterForLife targetFilter list = foldl (filterNext) list [0..length(head list)-1]
where
filterNext :: [[Int]] -> Int-> [[Int]]
filterNext acc i = acc `intersect` filterIndex targetFilter acc i
filterForLife targetFilter list = foldl (filterIndex targetFilter) list [0..length(head list)-1]
filterIndex :: ([Int] -> Int) -> [[Int]] -> Int -> [[Int]]
filterIndex targetFilter list index = filter ((==filterTarget) . (!! index)) list