Skip to content

Instantly share code, notes, and snippets.

@monzou

monzou/largest.hs

Created June 16, 2012 09:50
Show Gist options
  • Save monzou/2940798 to your computer and use it in GitHub Desktop.
Save monzou/2940798 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
largest.hs
main = print largest
largest :: Integer
largest = head (filter p [ 100000, 99999 .. ])
where p x = x `mod` 3829 == 0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment