From 7c26160075af3ccd87e0029ecc0e09ad3ca2dc66 Mon Sep 17 00:00:00 2001 From: Akshay Date: Mon, 7 Dec 2020 12:38:50 +0530 Subject: shorten day07 --- lib/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Utils.hs b/lib/Utils.hs index 4c9a581..4319714 100644 --- a/lib/Utils.hs +++ b/lib/Utils.hs @@ -33,4 +33,4 @@ bet k (l, u) = k >= l && k <= u (&+) = liftM2 (&&) howMany :: (a -> Bool) -> [a] -> Int -howMany predicate = length . filter ((== True) . predicate) +howMany predicate = length . filter predicate -- cgit v1.2.3