9.7 find-if

�V�[�P���X�f�[�^�����������������������f�[�^���������T���o�� ������������find-if�����D

<cl> (find-if #'numberp '(a b 1 2))
1 
<cl> (find-if
         #'(lambda (x) (and (numberp x) (evenp x)))
         '(a b 1 2))
2 
<cl> (find-if #'(lambda (x) (eq x 'a)) '((a) (b) (c))
             :key 'car)
(A)