Re: Finding Average without using Recusrion only using Prog

    (defun avg (args)
      (loop for x in args
          for l upfrom 1
          summing x into tot
          finally (return (/ tot l))))

Gauche Scheme

(use gauche.collection) ;; fold2

(define (add&count n sum cnt) (values (+ sum n) (+ cnt 1)))

(define (avg nums)
  (apply /
    (values->list
      (fold2
        add&count
        0 0
        nums))))

(avg '(20 30 40 50 60 70 80))
  ===>
50