18 lines
323 B
Haskell
18 lines
323 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
|
|
| sort x /= x = False
|
|
| 2 `elem` (map length $ group x) = True
|
|
| otherwise = False
|