Skip to content

Instantly share code, notes, and snippets.

@clementi

clementi/problem9-faster.hs

Created February 18, 2011 03:01
Show Gist options
  • Save clementi/833177 to your computer and use it in GitHub Desktop.
Save clementi/833177 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
problem9-faster.hs
head [ (a, b, c) | c <- [1..], b <- [1..c], let a = 1000 - b - c, a^2 + b^2 == c^2 ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment