diff --git a/2019/day4/day4.hs b/2019/day4/day4.hs
index 556c618..43948f9 100644
--- a/2019/day4/day4.hs
+++ b/2019/day4/day4.hs
@@ -4,7 +4,7 @@ main = do
     print (day4 p [130254..678275])
     print (day4 p' [130254..678275])
 
-day4 p = sum . map (fromEnum . p . show)
+day4 f = length . filter f . map show
 
 p x | sort x /= x = False
     | nub x == x = False