問題6: 最初の100個の自然数について和の二乗と二乗の和の差を求めよ。[=>原文和訳]
問題6の解答
(require 'cl)
(defun problem006 (N)
(- (expt (/ (* N (1+ N)) 2) 2)
(let ((n 0) (total 0))
(dotimes (n N total)
(incf total (expt (1+ n) 2))))))
(problem006 100)
これはそのままプログラムにすれば終わりですね。「和の二乗」は自然数の和の公式を使っています。「二乗の和」はループで普通に計算しています。
