diff options
Diffstat (limited to '0009/main.hs')
| -rw-r--r-- | 0009/main.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/0009/main.hs b/0009/main.hs new file mode 100644 index 0000000..ea16a29 --- /dev/null +++ b/0009/main.hs @@ -0,0 +1,11 @@ +triplets = foldl1 (++) $ map triplets1 [1..499] + where triplets1 x = foldl1 (++) $ map triplets2 [x+1..999-x] + where triplets2 y = [(x,y,1000-x-y)] + +theTripet = filter (\(a,b,c) -> a^2 + b^2 == c^2) triplets + +tripletProduct (a,b,c) = a * b * c + +main = do + putStrLn $ show $ tripletProduct $ head theTripet + |