; Average a list of numbers
(define (average l)
  (let ((sum 0.0) (n 0))
    (dolist (x l)
      (set! sum (+ sum x))
      (set! n (+ n 1)) )
    (/ sum n) ))

Contents    Page-10    Prev    Next    Page+10    Index