List Recursion cont’d 2

(defun sum-em3 (somelist accumulator)

(let ((rest-of-em (rest somelist)))

(if (null rest-of-em)

(+ accumulator (first somelist))

(sum-em3 rest-of-em

(+ accumulator

(first somelist))))))

Previous slide

Next slide

Back to first slide

View graphic version