14 lines
262 B
Haskell
14 lines
262 B
Haskell
import Data.List
|
|
|
|
main = do
|
|
print (day4 p [130254..678275])
|
|
print (day4 p' [130254..678275])
|
|
|
|
day4 f = length . filter f . map show
|
|
|
|
p x | sort x /= x = False
|
|
| nub x == x = False
|
|
| otherwise = True
|
|
|
|
p' x = 2 `elem` (map length $ group x) && p x
|