From a35ca0e5acf5ce33ff55d9ab2aab2fe84eca3b85 Mon Sep 17 00:00:00 2001 From: Mistivia Date: Thu, 10 Apr 2025 00:25:44 +0800 Subject: Special Pythagorean Triplet --- 0009/main.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 0009/main.hs 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 + -- cgit v1.0