Day 4: Another small meme
This commit is contained in:
parent
99d4c67b7b
commit
53d5029377
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user