24か月前公開・24か月前更新・2 min read

【ピタゴラス】一緒に考えませんか？ #Project Euler

https://cdn.magicode.io/media/notebox/DSC_00281_FiR4A9X.jpg

問9

ピタゴラスの定理

a^2+b^2=c^2

を満たす自然数には

a + b + c = 1000

となる組が1つだけある

積abcを求めよ

Project Euler ※解法の公開は問1～100のみ可

考え方

リスト内包記法で簡単に書けそう

比で探せば計算量は少なくなるはず

solve :: Int
solve = (1000 `div` (x + y + z))^3 * x * y * z where
    (x, y, z) = head [(x, y, z) | z <- [1..], x <- [1..z],y <- [1..z], z^2 == x^2 + y^2, 1000 `mod` (x+y+z) == 0]

x+y+z==1000という条件では無駄がでる可能性があるので1000を割り切るという形で表した

solve :: Int
solve = (1000 `div` (x + y + z))^3 * x * y * z where
    (x, y, z) = head [(x, y, z) | z <- [1..], x <- [1..z],y <- [1..z], z^2 == x^2 + y^2, 1000 `mod` (x+y+z) == 0]

print solve