Recursion cont’d 2

(defun find-even (list)

(if list

(let ((item (first list)))

(if (and (numberp item)(evenp item))

item

(find-even (rest list))))))

(find-even '(5 7 8 9 11))

(find-even '(5 7 9 11))

(find-even nil)

Previous slide

Next slide

Back to first slide

View graphic version