From ca42298c307a3009720d6bc93f294ae308168262 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 14 Dec 2021 08:45:15 +0200
Subject: Day 14

---
 utils.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'utils.hs')

diff --git a/utils.hs b/utils.hs
index ee89ea1..9fcc553 100644
--- a/utils.hs
+++ b/utils.hs
@@ -37,3 +37,6 @@ splitToPair f lst =
   let x' = takeWhile (not . f) lst
       y' = dropWhile (not . f) lst $> drop 1
    in (x', y')
+
+count :: (a -> Bool) -> [a] -> Int
+count pred xs = xs $> filter pred .> length
\ No newline at end of file
-- 
cgit v1.3