Bonjour tout le monde
J'aurais besoin d'aide s'il vous plait, j'essai de faire une procédure récursive en scheme qui supprime tout les éléments d'une liste à partir du deuxième élément.
Si la liste est vide ou inférieure à 1 alors je retourne une liste vide. Voici un exemple du résultat que j'essai d'avoir
(enleve '(1 2 3 4))
resultat: (1)
(enleve '(1))
resultat ()
voici mon code il remplit bien la deuxième condition mais m'envoi balader pour la premiere...
Merci d'avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 (define (enleve elem) (if(< (length elem) 1) '() (enleve (cadr elem) (cons (car elem) (enleve (cdr elem))))))
Partager