Project Euler - Problem 6

問題

• 原文

  Find the difference between the sum of the squares of the first one hundred natural numbers and the square of the sum.

• 日本語訳

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

解答

これまた簡単な問題。ほとんど問題を書き下すだけの作業です。

(use srfi-1)
(define (solve)
  (define nums (iota 100 1))
  (define sum-of-squares
    (apply + (map (lambda (n) (expt n 2)) nums)))
  (define square-of-sum
    (expt (apply + nums) 2))
  (- square-of-sum sum-of-squares))
(define (main argv)
  (display (solve))
  (newline))