7 lines
231 B
Haskell
7 lines
231 B
Haskell
main :: IO ()
|
|
main = putStr $ show $ solve 1000
|
|
|
|
-- Brute search because don't care 🧌
|
|
solve :: Integer -> Integer
|
|
solve p = head [a * b * c | a <- [1 .. p], b <- [a + 1 .. p], let c = p - a - b, c > 0 && c ^ 2 == a ^ 2 + b ^ 2]
|