diff --git a/2019/day4/day4.hs b/2019/day4/day4.hs
index 181f33b..cf31af7 100644
--- 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