Problem 6

最初の10個の自然数について、その和の二乗と、二乗数の和は以下の通り。
1² + 2² + ... + 10² = 385
(1 + 2 + ... + 10)² = 3025

これらの数の差は 3025 - 385 = 2640 となる。

同様にして、最初の100個の自然数について和の二乗と二乗の和の差を求めよ。

Problem 6 - PukiWiki

Ruby

a = (1..100).inject(0){|v,i| v+i**2}
b = (1..100).inject{|v,i| v+i}**2
puts b-a

R

a <- sum((1:100)^2)
b <- (sum(1:100))^2
print(b-a)

Haskell

main = print $ b - a
    where
      a = sum $ map (^ 2) [1..100]
      b = (sum [1..100]) ^ 2

どれもすぐ出来た。