Question sur les listes avec Lisp
Bonjour,
Je dois trouver le code qui traite dans une liste ayant des sous listes, le nombre de celles commençant par un chiffre. en cherchant j ai pu trouver que numberp peut m'aider. Mais j arrive pas à trouver le code.
pourriez vous m aider à voir ou je me plante, merci d'avance.
mon code est:
Code:
1 2 3 4 5 6
| (defun nombres (liste)
(cond
((not liste) 0)
((listp (car liste)) (and (numberp (car (car liste))))
(1+ (nombres (cdr liste))))
(t (nombres (cdr liste))) ) ) |
Resultat
Code:
1 2
| (nombres '((5 a 1 2) (a b) b (2 a b d)))
3 |
alors que j attendais avoir 2.
merci de l aide