find cont’d

> (find 17 '(13 61 34 33 45))

NIL

> (find 17 '(13 61 34 33 45) :test '<)

61

> (defun is-double-of (num1 num2)

(= (* 2 num1) num2))

is-double-of

> (find 17 '(13 61 34 33 45)

:test 'is-double-of)

34

> (defun car-is-double-of (num-arg list-arg)

(= (* 2 num-arg) (car list-arg)))

car-is-double-of

> (find 17

'((13 31) (61 16) (34 43) (33 33))

:test 'car-is-double-of)

(34 43)

Previous slide

Next slide

Back to first slide

View graphic version