Подсчет конкретных чисел в списке

Question

Как использовать count для подсчета конкретных номеров в списке?

(define lst '(1 1 1 1 2 2 2 3 3 3 3 3 4 4) 
(count 2 lst);; what should I use at the place of '2' 

Но это приводит к следующей ошибке.

кол-во: нарушение контракта
ожидается: процедура?
Дано: 2

Answer 1

count подсчитывает количество элементов списка, для которых процедура возвращает true. В этом случае вам нужна процедура, которая возвращает true только если элемент равен 2: (lambda (x) (equal? x 2)).

В полной мере, вы можете сделать

(define lst '(1 1 1 1 2 2 2 3 3 3 3 3 4 4)) 
(count (lambda (x) (equal? x 2)) lst) 

Side Примечание: вы можете сократить его, заменив лямбда-выражение с (curry equal? 2).