From 48f9acaff1fbea7537edbeb91ce4d35e40314a43 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Thu, 9 Dec 2021 13:27:55 +0200 Subject: Day 08 --- utils.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'utils.hs') diff --git a/utils.hs b/utils.hs index 04211ea..0ba4bcb 100644 --- a/utils.hs +++ b/utils.hs @@ -18,8 +18,11 @@ splitOn p s = case dropWhile p s of transpose :: [[a]] -> [[a]] transpose = getZipList . traverse ZipList -mapWithIndex :: (Num a1, Enum a1) => (a2 -> b) -> [a2] -> [(a1, b)] +mapWithIndex :: (a -> b) -> [a] -> [(Int, b)] mapWithIndex f xs = zip [0 ..] (map f xs) removeAt :: [Int] -> [b] -> [b] removeAt is xs = mapWithIndex id xs $> filter (\(i', _) -> i' `notElem` is) .> map snd + +slice :: Int -> Int -> [a] -> [a] +slice from to xs = take (to - from + 1) (drop from xs) \ No newline at end of file -- cgit v1.3