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
              , right
              , bet
              , (&+)
+             , howMany
              ) where 
 
 import Data.Char (digitToInt)
@@ -30,3 +31,6 @@ bet k (l, u) = k >= l && k <= u
 -- combine filter predicates
 (&+) :: (a -> Bool) -> (a -> Bool) -> (a -> Bool)
 (&+) = liftM2 (&&)
+
+howMany :: (a -> Bool) -> [a] -> Int
+howMany predicate = length . filter ((== True) . predicate)