Still not completely on board with this

2019-12-04 09:53:34 +01:00 · 2019-12-04 09:53:34 +01:00 · 4892b3fcac
parent a3d0bcde24
commit 4892b3fcac
1 changed files with 1 additions and 4 deletions
--- a/2019/day4/day4.hs
+++ b/2019/day4/day4.hs
@ -11,7 +11,4 @@ p x
    | nub x == x = False
    | otherwise = True

-p' x
-    | sort x /= x = False
-    | 2 `elem` (map length $ group x) = True
-    | otherwise = False
+p' x = 2 `elem` (map length $ group x) && p x