List Recursion cont’d 4

(defun sum-em6 (somelist)

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

(if (null first-el)

0

(if (numberp first-el)

(+ first-el

(sum-em6 (rest somelist)))

(+ (sum-em6 first-el)

(sum-em6 (rest somelist)))))))

(sum-em6 '((1 2 3) 7 (4 5 6)))

Previous slide

Next slide

Back to first slide

View graphic version