From 63c1f74fe9a20984f6a19c3c2344793b1ed10072 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Fri, 17 Dec 2021 13:25:23 +0200 Subject: Day 17 --- utils.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'utils.hs') diff --git a/utils.hs b/utils.hs index 9fcc553..3e6c2b6 100644 --- a/utils.hs +++ b/utils.hs @@ -39,4 +39,8 @@ splitToPair f lst = in (x', y') count :: (a -> Bool) -> [a] -> Int -count pred xs = xs $> filter pred .> length \ No newline at end of file +count pred xs = xs $> filter pred .> length + +takeUntil :: (a -> Bool) -> [a] -> [a] +takeUntil _ [] = [] +takeUntil p (x : xs) = x : if p x then takeUntil p xs else [] -- cgit v1.3