shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add init.

--- a/lib/Data/List.hs

+++ b/lib/Data/List.hs

@@ -305,3 +305,8 @@

 last [] = error "last: []"

 last [x] = x

 last (_:xs) = last xs

+

+init :: forall a . [a] -> [a]

+init [] = error "init: []"

+init [_] = []

+init (x:xs) = x : init xs

-- 

⑨