Problem 9

Haskell Project Euler

ピタゴラスの三つ組(ピタゴラスの定理を満たす整数)とはa < b < cで
a² + b² = c²
を満たす数の組である.

例えば, 3² + 4² = 9 + 16 = 25 = 5²である.

a + b + c = 1000となるピタゴラスの三つ組が一つだけ存在する. このa,b,cの積を計算しなさい.

Problem 9 - PukiWiki

Haskell

main = print $ prodT $ head $ filter isPythagoreanTriplet [(a,b,c)| a<-[1..1000], b<-[1..1000], c<-[1..1000], b < c, a < b, a+b+c==1000]
    where
      prodT (a,b,c) = a*b*c
      isPythagoreanTriplet (a,b,c) = a^2+b^2==c^2

内包表記使ったらかなり楽に。
他の言語でもProblem4と同じような感じで組を作れば出来ると思う。


が、徐々に各言語で書いてる時間がなくなりつつ…