Skip to content

Instantly share code, notes, and snippets.

@oskimura

oskimura/Euler9.hs

Created September 28, 2010 09:03
Show Gist options
  • Save oskimura/600652 to your computer and use it in GitHub Desktop.
Save oskimura/600652 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Euler9.hs
euler9 = [ (a*b*z)|m<-[1..1000],n<-[1..1000],m>n,let z = m*m+n*n
, let a = m*m-n*n
, let b = 2*m*n
, (a+b+z)==1000
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment