Finding the Maximum

• You can search for a maximum value

(defun maximum (list)

(let ((result (first list)))

(dolist (item (rest list))

(when (> item result)

(setq result item)))

result))

(maximum '(1 2 3 4))

• 4

Previous slide

Next slide

Back to first slide

View graphic version