Skip to content

Instantly share code, notes, and snippets.

@honda0510

honda0510/last.hs

Last active December 10, 2015 14:48
Show Gist options
  • Save honda0510/4450185 to your computer and use it in GitHub Desktop.
Save honda0510/4450185 to your computer and use it in GitHub Desktop.
Download ZIP
【Haskell】lastを自前で実装
Raw
last.hs
last' :: [a] -> a
last' [] = error "list must be `length list > 0`"
last' [x] = x
last' (x:xs) = last' xs
last'' :: [a] -> a
last'' [] = error "list must be `length list > 0`"
last'' xs = xs !! ((length xs) - 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment