AoC/2019/day4/day4.hs

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
Day 4: Initial version Now to look at other solutions 2019-12-04 08:02:39 +01:00			`import Data.List`

			`main = do`
Stole Fichte’s parse idea 2019-12-04 09:30:38 +01:00			`print (day4 p [130254..678275])`
			`print (day4 p' [130254..678275])`
Day 4: Initial version Now to look at other solutions 2019-12-04 08:02:39 +01:00
Due to popular demand 2019-12-04 22:07:24 +01:00			`day4 f = length . filter f . map show`
Day 4: Initial version Now to look at other solutions 2019-12-04 08:02:39 +01:00
… 2019-12-04 11:13:17 +01:00			`p x \| sort x /= x = False`
Day 4: Initial version Now to look at other solutions 2019-12-04 08:02:39 +01:00			`\| nub x == x = False`
			`\| otherwise = True`

Still not completely on board with this 2019-12-04 09:53:34 +01:00			p' x = 2 `elem` (map length $ group x) && p x