Project Euler Problem 9

ピタゴラスの三つ組(ピタゴラスの定理を満たす整数)とはa a2 + b2 = c2

を満たす数の組である.

例えば, 32 + 42 = 9 + 16 = 25 = 52である.

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

これは組が一つだけ存在すると教えられているので簡単に書ける．もしこれが何通りか存在したら非常に面倒な問題になるけど，そういう場合はあるのかしら．まぁ解ければいいというスタンスなので気にしない．

a <- c(1:500)
l <- 1000-1000^2/(2*(1000-a))
r <- subset(l,1000^2%%(2*(1000-a))==0)
r[1]*r[2]*(1000-r[1]-r[2])