ホーム - Project Euler

Problem 6¶

#!r6rs
#!chezscheme

(import (chezscheme))

(define answer-6
  (let loop ((n 1) (sum-all 0) (squared-all 0))
    (if (< 100 n)
      (- (expt sum-all 2) squared-all)
      (loop (add1 n) (+ sum-all n) (+ squared-all (expt n 2))))))

(printf "6: ~D~%" answer-6)