Due to popular demand

This commit is contained in:
shu 2019-12-04 22:07:24 +01:00
parent fd626a2f30
commit c05e4b4081

View File

@ -4,7 +4,7 @@ main = do
print (day4 p [130254..678275])
print (day4 p' [130254..678275])
day4 p = sum . map (fromEnum . p . show)
day4 f = length . filter f . map show
p x | sort x /= x = False
| nub x == x = False