Skip to content

Instantly share code, notes, and snippets.

@rhysd

rhysd/euler9.hs

Created July 31, 2012 15:19
Show Gist options
  • Save rhysd/3217762 to your computer and use it in GitHub Desktop.
Save rhysd/3217762 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
euler9.hs
main = print [a*b*(1000-a-b) | a<-[1..1000], b<-[a..1000], a^2 + b^2 == (1000-a-b)^2]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment