aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-12-07 06:43:52 +0000
committerAkshay <[email protected]>2020-12-07 06:43:52 +0000
commit0dc33cafed11aa4574f740b244d96060008ec714 (patch)
tree220a41e99681bd52e87aa6dd53470d16f13d0c15 /lib
parentd7e77b3e9d8c9f30d34b46aac119521eb1589717 (diff)
shorten
Diffstat (limited to 'lib')
-rw-r--r--lib/Utils.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Utils.hs b/lib/Utils.hs
index 1eb42fc..4c9a581 100644
--- a/lib/Utils.hs
+++ b/lib/Utils.hs
@@ -4,6 +4,7 @@ module Utils ( binaryToInt
4 , right 4 , right
5 , bet 5 , bet
6 , (&+) 6 , (&+)
7 , howMany
7 ) where 8 ) where
8 9
9import Data.Char (digitToInt) 10import Data.Char (digitToInt)
@@ -30,3 +31,6 @@ bet k (l, u) = k >= l && k <= u
30-- combine filter predicates 31-- combine filter predicates
31(&+) :: (a -> Bool) -> (a -> Bool) -> (a -> Bool) 32(&+) :: (a -> Bool) -> (a -> Bool) -> (a -> Bool)
32(&+) = liftM2 (&&) 33(&+) = liftM2 (&&)
34
35howMany :: (a -> Bool) -> [a] -> Int
36howMany predicate = length . filter ((== True) . predicate)