10 lines
337 B
Haskell
10 lines
337 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
is_int num = num == fromInteger (round num)
|
||
|
|
|
||
|
|
-- this is a kludge - does haskell let us search an iterator?
|
||
|
|
pythagorean_triples = [(a, b, c) | b <- [1..], a <- [1..b], let c = sqrt (a * a + b * b), is_int c && (a + b + c == 1000.0) ]
|
||
|
|
|
||
|
|
main = do
|
||
|
|
print $ (\(a, b, c) -> a * b * c) $ last $ take 1 pythagorean_triples
|