From 53d50293773e740533adf5ce31e582e3e93f0750 Mon Sep 17 00:00:00 2001 From: shu Date: Mon, 9 Dec 2019 02:21:01 +0100 Subject: [PATCH] Day 4: Another small meme --- 2019/day4/day4.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/2019/day4/day4.hs b/2019/day4/day4.hs index 43948f9..ae47708 100644 --- a/2019/day4/day4.hs +++ b/2019/day4/day4.hs @@ -1,13 +1,11 @@ import Data.List -main = do - print (day4 p [130254..678275]) - print (day4 p' [130254..678275]) +main = print $ day4 [130254..678275] <$> [p,p'] -day4 f = length . filter f . map show +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 +p' x = 2 `elem` map length (group x) && p x