Discussion :

[ceriums]

Bonsoir.
Je débute en LISP et je dois dire que la syntaxe me déroute beaucoup.
J'essaye de réaliser cet exercice mais je ne vois pas comment commencer. Dans un autre langage je n'aurais aucun problème, mais là...

1. À partir d'une liste associant des titres de films et leurs réalisateurs (certains réalisateurs ont fait
plusieurs films) et d'une liste des budgets correspondants en euros :
ListeA : ((film1 réalisateur1) ... (filmN réalisateurM))
ListeB : (budget1 ... budgetN)
Faire une fonction récursive qui associe le budget au film :
(associe ListeA ListeB) => ((film1 réalisateur1 budget1) ... (filmN réalisateurM budgetN))

Cordialement.

[ceriums]

Bon he bien c'est réussi, je me suis précipité pour poster. Je poste ici ma réponse, elle servira surement.

(setq listea '((film1 realisateur1) (film2 realisateur1) (film3 realisateur2)))
(setq listeb '(budget1 budget2 budget3))
(defun associe (listea listeb)
(cond
((atom listea) nil)
((cons (cons (car listeb) (car listea)) (associe (cdr listea) (cdr listeb)))) ) )

[byjav]

Ça marche.

Il est d’usage d’introduire la dernière branche de COND avec T:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
(cond ((atom listea) nil)
      (t (cons (cons (car listeb) (car listea))
               (associe (cdr listea) (cdr listeb)))))

D’ailleurs, comme il n’y a que deux branches, il vaut mieux employer IF:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
(if (atom listea)
    '()
    (cons (cons (car listeb) (car listea))
          (associe (cdr listea) (cdr listeb))))

Ici j’ai décidé d’employer la notation '() pour désigner la liste vide.

[byjav]

Si tu as besoin des variables globales, il faut les déclarer à l’aide de DEFVAR ou DEFPARAMETER. D’habitude, on utilise des cache-oreilles pour les distinguer des variables locales:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
(defvar *listea* '((film1 realisateur1) (film2 realisateur1) (film3 realisateur2)))
(defvar *listeb* '(budget1 budget2 budget3))

SETQ est un opérateur d’affectation qui change la valeur d’une variable déjà existante. De nos jours, il vaut mieux, peut-être, l’éviter en utilisant SETF. (Dans notre cas, on n’a besoin ni de l’un, ni de l’autre.)

[jack-ft]

Bon he bien c'est réussi, je me suis précipité pour poster. Je poste ici ma réponse, elle servira surement.

Bonjour et bravo pour ce bon début!

Tu peux modifier ta réponse et, si tu me permets de te vouvoyer, en cliquant sur le petit "#" de la barre d'outils.

Je n'ai pas testé ton code mais, à première vue, mon détecteur de bugs intégré me dit qu'il me semble que ta fonction va créer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(associe ListeA ListeB) => ((budget1 film1 réalisateur1) ... (budgetN filmN réalisateurN))

et non, comme demandé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(associe ListeA ListeB) => ((film1 réalisateur1 budget1) ... (filmN réalisateurN budgetN))

peut-être qu'en utilisant la fonction "append"...

(vaudrait p'têt mieux éviter "nconc" si tu veux garder la liste originale en l'état )

[ceriums]

Bonjour et bravo pour ce bon début!

Tu peux modifier ta réponse et, si tu me permets de te vouvoyer, en cliquant sur le petit "#" de la barre d'outils.

Je n'ai pas testé ton code mais, à première vue, mon détecteur de bugs intégré me dit qu'il me semble que ta fonction va créer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(associe ListeA ListeB) => ((budget1 film1 réalisateur1) ... (budgetN filmN réalisateurN))

et non, comme demandé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(associe ListeA ListeB) => ((film1 réalisateur1 budget1) ... (filmN réalisateurN budgetN))

peut-être qu'en utilisant la fonction "append"...

(vaudrait p'têt mieux éviter "nconc" si tu veux garder la liste originale en l'état )

Exact, j'ai fait ça car je ne me souvenais plus de la fonction append :-)
Merci pour la précision. Et merci également à byjav pour les précisions.