blob: ea16a29027ca1c7df735b445f402250166e2b4ec (
plain)
1
2
3
4
5
6
7
8
9
10
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
|
