Liste de longueur dans le schéma

Salut, je suis en train d'écrire un programme où une liste de listes de vérification pour voir si ils sont égaux en taille et en retour #t si elles le sont.

Donc par exemple si je devais écrire (liste-contre? '((1 2 3) (4 5 6) (7 8 9))) le programme serait de retour #t, et (liste-contre? '((1 2 3) (4 5 6) (7 8))) serait de retour #f.

Jusqu'à présent c'est ce que j'ai fait:

 (define list-counter?
  (lambda (x)
    (if (list? x)
        (if (list?(car x))
      (let (l (length (car x))))
        (if (equal? l (length(car x))))
        (list-counter?(cdr x))
 ) ) ) ) ) 

Je pense que lorsque je vais mal, c'est après que j'ai mis de la longueur de l à la longueur de la première liste. Toute aide serait appréciée.

OriginalL'auteur gestalt | 2012-03-22