AoC/2019/day4/day4.hs

import Data.List

main = print $ day4 [130254..678275] <$> [p,p']

day4 r f = (length . filter f . map show) r

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`

Day 4: Another small meme 2019-12-09 02:21:01 +01:00			`main = print $ day4 [130254..678275] <$> [p,p']`
Day 4: Initial version Now to look at other solutions 2019-12-04 08:02:39 +01:00
Day 4: Another small meme 2019-12-09 02:21:01 +01:00			`day4 r f = (length . filter f . map show) r`
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`

Day 4: Another small meme 2019-12-09 02:21:01 +01:00			p' x = 2 `elem` map length (group x) && p x