Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Day 4: Another small meme

This commit is contained in:
shu 2019-12-09 02:21:01 +01:00
parent 99d4c67b7b
commit 53d5029377
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2019/day4/day4.hs
View File

@ -1,13 +1,11 @@
import Data.List
main = do
print (day4 p [130254..678275])
print (day4 p' [130254..678275])
main = print $ day4 [130254..678275] <$> [p,p']
day4 f = length . filter f . map show
day4 r f = (length . filter f . map show) r
p x | sort x /= x = False
| nub x == x = False
| otherwise = True
p' x = 2 `elem` (map length $ group x) && p x
p' x = 2 `elem` map length (group x) && p x