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