List Recursion cont’d 3

(defun sum-em4 (somelist)

(let ((sum 0))

(dolist (el somelist )

(setf sum (+ sum el)))

sum))

(defun sum-em5 (somelist)

(let ((sum (first somelist)))

(dolist (el (rest somelist) sum)

(setf sum (+ sum el)))))

Previous slide

Next slide

Back to first slide

View graphic version