Day 4: Another small meme
This commit is contained in:
parent
99d4c67b7b
commit
53d5029377
|
@ -1,13 +1,11 @@
|
||||||
import Data.List
|
import Data.List
|
||||||
|
|
||||||
main = do
|
main = print $ day4 [130254..678275] <$> [p,p']
|
||||||
print (day4 p [130254..678275])
|
|
||||||
print (day4 p' [130254..678275])
|
|
||||||
|
|
||||||
day4 f = length . filter f . map show
|
day4 r f = (length . filter f . map show) r
|
||||||
|
|
||||||
p x | sort x /= x = False
|
p x | sort x /= x = False
|
||||||
| nub x == x = False
|
| nub x == x = False
|
||||||
| otherwise = True
|
| otherwise = True
|
||||||
|
|
||||||
p' x = 2 `elem` (map length $ group x) && p x
|
p' x = 2 `elem` map length (group x) && p x
|
||||||
|
|
Loading…
Reference in New Issue
Block a user