(defun print-even (lst)
(dolist (x lst)
(when (evenp x)
(print x))))
(print-even '(1 2 3 4 5 6 7 8 9 10))
在这个函数中,我们使用dolist
循环遍历列表中的每个元素。对于每个元素,evenp
函数被用来检查其是否为偶数。如果是,我们使用print
函数将其输出。最后,我们调用函数,将列表作为其参数传入。这个函数会输出列表中的偶数值:2 4 6 8 10。