shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add utility function.

--- a/src/MicroHs/List.hs

+++ b/src/MicroHs/List.hs

@@ -68,3 +68,6 @@

                                | otherwise = []

   where f a (b:bs) | a == b = Just bs

         f _ _ = Nothing

+

+dropEnd :: Int -> [a] -> [a]

+dropEnd n = reverse . drop n . reverse

-- 

⑨