Skip to content

Instantly share code, notes, and snippets.

@banacorn

banacorn/maximum.hs

Created May 25, 2014 15:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save banacorn/f50f8559faee824b8ea6 to your computer and use it in GitHub Desktop.
Save banacorn/f50f8559faee824b8ea6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
maximum.hs
maximum :: Ord a => [a] -> a
maximum = foldr max (-∞)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment