From 197f07c4ad5c71b821a5dcdc84d01eec07ff64f6 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 13 Dec 2021 11:02:06 +0200 Subject: Day 13 --- utils.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'utils.hs') diff --git a/utils.hs b/utils.hs index 740a58f..ee89ea1 100644 --- a/utils.hs +++ b/utils.hs @@ -30,4 +30,10 @@ slice from to xs = take (to - from + 1) (drop from xs) splitEvery _ [] = [] splitEvery n list = first : splitEvery n rest where - (first, rest) = splitAt n list \ No newline at end of file + (first, rest) = splitAt n list + +splitToPair :: (Show a) => (a -> Bool) -> [a] -> ([a], [a]) +splitToPair f lst = + let x' = takeWhile (not . f) lst + y' = dropWhile (not . f) lst $> drop 1 + in (x', y') -- cgit v1.3