Skip to content

Instantly share code, notes, and snippets.

@laboon

laboon/pep9p1.hs

Created November 9, 2012 22:26
Show Gist options
  • Save laboon/4048717 to your computer and use it in GitHub Desktop.
Save laboon/4048717 to your computer and use it in GitHub Desktop.
Download ZIP
Project Euler - Problem 9 - Part 1
Raw
pep9p1.hs
[ (a,b,c) | c <- [1..], b <- [1..c], a <- [1..b], a^2 + b^2 == c^2, a + b + c == 1000]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment