Comment compter le nombre de zéros dans une liste?

Question

Je suis nouveau à Scheme, alors quelqu'un peut-il me donner un exemple? Il n'y a pas de variable locale dans Scheme, alors comment est-ce que je peux garder une trace du nombre de zéros qui sont rencontrés.

J'ai essayé

#lang scheme 
(define zeroes 
    (lambda (ll) 
    (cond ((null? ll) 
      0) 
      (else (= 0 (car ll)))) 
    (zeroes (cdr ll)) 
) 
) 

Mais le compilateur se plaint:

cdr: expects argument of type <pair>; given() 

Merci,

Answer 1

Voici ma solution (puisque l'OP est déjà affiché leur):

(define (count-zeroes lst) 
    (let loop ((lst lst) 
      (count 0)) 
    (cond ((null? lst) count) 
      ((zero? (car lst)) (loop (cdr lst) (+ count 1))) 
      (else (loop (cdr lst) count))))) 

Bien sûr, peut être considéré comme aucun traitement de ce sujet complet sans parler environ fold, qui est habituellement utilisé pour "résumer" une liste à un seul objet (comme nous le faisons pour cette question):

(define (count-zeroes lst) 
    (fold (lambda (elem count) 
      (if (zero? elem) (+ count 1) count)) 
     0 lst)) 

Answer 2

Je garde cela à un niveau d'indice pour l'instant.

Votre fonction fait deux choses. D'abord, il calcule 0 si son argument est une liste vide, ou #t ou #f si son argument est une liste qui commence par 0 ou non. Ensuite, il jette ce résultat et s'appelle récursivement sur le reste de la liste.

Vous devrez faire deux choses pour faire ce travail: 1) combiner les résultats des tests individuels zéro en quelque sorte (pour une expérience de pensée, regardez votre code, comment serait-il jamais retourner la valeur 2 si la liste avait deux zéros?); 2) "bottom out" avec succès quand il s'appelle récursivement sur une liste vide.

Answer 3

Tout compris la solution,

(define count 
    (lambda (lst) 
    (cond ((null? lst) 0) 
      ((= 0 (car lst)) (+ 1 (count (cdr lst)))) 
      (else (+ 0 (count (cdr lst)))) 
    )  
) 
)