Closed tcr closed 7 years ago
See Idiomatic.hs:
Idiomatic.hs
unsnoc (x:xs) = case unsnoc xs of Just (a, b) -> Just (x:a, b) Nothing -> Just ([], x)
See
Idiomatic.hs
: