Problème sur fonction simple [Résolu]

[Lyadrielle]

Bonjour,

J'apprends actuellement le lisp et j'ai quelques problèmes, notamment avec la compréhension des retour de fonctions.

J'ai une BaseTest, constituée d'une liste de personnes :

Code :

1
2
3
4
5
6
7
(setq BaseTest '((Dupond Pierre Lyon 45 150)
(Dupond Marie Nice 32 200)
(Dupond Jacques Lyon 69 20)
(Perrot Jacques Geneve 28 500)
(Perrot Jean Nice 55 60)
(Perrot Anna Grenoble 19 180)
))

La fonction que je cherche à faire :
En argument, je prends la BaseTest et je dois ressortir une liste composée des personnes dont le nom est Perrot.

Voilà ce que j'ai essayé de faire :

Code :

(defun F2 (base) (dotimes (i (length base)) (if(member 'Perrot (nth i base)) (setq liste(list(member 'Perrot (nth i base)))) (return-from F2 liste))))

Je ne pense pas avoir bien saisir le rôle de la fonction 'return-from' d'une part ... et la fonction me renvoie forcément la dernière valeur de la BaseTest!

Comment faire pour tout renvoyer ?

Merci pour votre aide.

[Trap D]

Je ne connais pas bien la syntaxe LISP mais il faut peut-être faire un append des résultats connus avec l'appel de la fonction.
D'après ton code, mais je ne sais pas où tu en es de l'apprentissage du LISP, tu n'utilises pas les possibilités de programmation fonctionnelle du LISP.
Je penses que tu as entendu parler de car et cdr pour les listes non ?
Voilà ce qu'on pourrait écrire en Scheme :

Code :

1
2
3
4
5
6
7
(define (F2 Liste)
  (cond ((null? Liste) Liste)
        ((member 'Perrot (car Liste)) (cons (car Liste) (F2 (cdr Liste))))
        (else (F2 (cdr Liste)))))


(F2 BaseTest)

Avec comme résultat

((Perrot Jacques Geneve 28 500) (Perrot Jean Nice 55 60) (Perrot Anna Grenoble 19 180))

[Lyadrielle]

La fonction null? ne fonctionne pas chez moi.

Que veut-elle dire ? je vais chercher un équivalent.

[Trap D]

Elle teste si une liste est vide.

[Lyadrielle]

Ok, merci.;

Le else non plus n'existe pas dans ma version -.-

Je vais donc refaire le programme en mettant les bons clés et je reviendrai vers toi si je rencontre encore des soucis!

merci en tout cas

[Lyadrielle]

Voilà le code avec mes mots clés :

(

Code :

1
2
3
4
defun F2 (Liste)
  (cond ((null Liste) Liste)
        ((member 'Perrot (car Liste)) (cons (car Liste) (F2 (cdr Liste))))
        (T (F2 (cdr Liste)))))

Encore merci.