ChrisBuchholz/safeInit.hs

Created July 21, 2013 10:28

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/ChrisBuchholz/6048179.js"></script>
Save ChrisBuchholz/6048179 to your computer and use it in GitHub Desktop.

Download ZIP

safeInit

Raw

safeInit.hs

	safeInit :: [a] -> [a]
	safeInit (x:xs)
	\| null xs = []
	\| otherwise = x : safeInit xs

Author

ChrisBuchholz commented Jul 21, 2013

Actual safe version:

safeInit :: [a] -> Maybe [a] 
safeInit [] = Nothing
safeInit (x:[]) = Just []
safeInit (x:xs) = Just $ init (x:xs)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment