定义一个函数，在方案中将其命名为“CHECK”

Question

如何在方案中写这个？

定义一个函数，称之为'CHECK'，它以整数作为第一个参数，一个整数列表 作为它的第二个参数并返回第一个参数出现在第二个参数中的次数

Answer 1

您所描述的是通常所谓的“计数”的变体：

(define (check num ls) (count (lambda (val) (= val num)) ls))
(check 2 '(2 3 4 2)) ; => 2