sum

Location: lib, 5 Lines

; Scheme 9 from Empty Space, Function Library
; By Nils M Holm, 2009
; Placed in the Public Domain
;
; (sum integer1 integer2) ==> integer
;
; Compute the sum of a range of integers.
;
; Example:   (sum 2 5)  ==>  14

(define (sum n m)
  (let ((x (+ 1 (- m n))))
    (+ (quotient (+ x (* x x))
                 2)
       (* x (- n 1)))))

contact  |  privacy