From 247d7534c247f19be84c0984581279ef5545b1e6 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sat, 18 Dec 2021 17:50:01 +0200 Subject: Day 18 --- utils.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'utils.hs') diff --git a/utils.hs b/utils.hs index 3e6c2b6..fb1ea96 100644 --- a/utils.hs +++ b/utils.hs @@ -44,3 +44,6 @@ 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 [] + +fromSymEither (Left x) = x +fromSymEither (Right x) = x \ No newline at end of file -- cgit v1.3