From c05e4b408175b7deae1fa12e84a741fa24308a6a Mon Sep 17 00:00:00 2001
From: shu <shu@lain.localdomain>
Date: Wed, 4 Dec 2019 22:07:24 +0100
Subject: [PATCH] Due to popular demand

---
 2019/day4/day4.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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