Схема - Подсчет элементов в списке

Question

У меня есть следующий код:

(define (howMany list) 
    (if (null? list) 
     0 
     (+ 1 (howMany (cdr list))))) 

если сделать следующее: (howMany '(1 2 3 (4 5))) мы получим 4, как результат. Как сделать так, чтобы он подсчитывал число целых чисел в моем списке. Значение той же проблема будет возвращать 5 в качестве ответа, вместо 4.

Answer 1

Вы просто должны использовать стандартный шаблон для обхода списка списков:

(define (howMany lst) 
    (cond ((null? lst) 0)     ; an empty list has 0 elements 
     ((not (pair? lst)) 1)   ; if it's an element, then count it as 1 
     (else (+ (howMany (car lst))  ; otherwise advance the recursion 
       (howMany (cdr lst)))))) ; over both the `car` and the `cdr` 

Более короткое и более идиоматическое решением будет использовать встроенное -в процедуры список, как это:

(define (howMany lst) 
    (length (flatten lst))) 

в любом случае, это работает, как ожидалось:

(howMany '(1 2 3 (4 5))) 
=> 5