List Recursion cont’d 1

(defun sum-em (somelist)

(if (null (rest somelist))

(first somelist)

(+ (first somelist)

(sum-em (rest somelist)))))

(defun sum-em2 (somelist)

(let ((first-el (first somelist))

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

(if (null rest-of-em)

first-el

(+ first-el (sum-em2 rest-of-em)))))

Previous slide

Next slide

Back to first slide

View graphic version