Discussion :

[l1informatique]

Bonjour,

j'ai du mal à trouver la réponse de cette exercice,

2 - Fonction qui détecte une circularité
Écrire la fonction récursive circulaire qui détecte qu'une liste plate (sans sous-listes) est circulaire par son début.

Code :

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

1
2
3
4
(setq liste '(a b c))
(rplacd (cddr liste) liste) 
(circulaire liste) => t
(circulaire '(a b c a b c)) => nil

Astuce : utilisez la fonction eq, qui compare deux adresses.

mon essai :

Code :

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

1
2
3
4
5
(defun circulaire (liste)
 (cond
  ((atom liste) nil)      # si la liste est vide 
  ((eq (cdr liste) (car liste) t)
  ((circulaire (cdr liste) (car liste)) ) )

mais ça ne marche pas :s

de l'aide svp

[jack-ft]

Bonjour,

Astuce : utilisez la fonction eq, qui compare deux adresses.

mon essai :

Code :

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

1
2
3
4
5
(defun circulaire (liste)
 (cond
  ((atom liste) nil)      # si la liste est vide 
  ((eq (cdr liste) (car liste) t)
  ((circulaire (cdr liste) (car liste)) ) )

mais sa ne marche pas :s

de l'aide svp[/QUOTE]

C'était bien parti!

Plutôt que de te donner la solution, je te donne quelques pistes...

Le premier test ((atom liste) nil) et son résultat associé sont bons!

Remarque: le test (eq (cdr liste) (car liste) vérifie si le reste de la liste (c'est-à-dire la liste sans le premier élément) est égal au premier élément de la liste. Comme on te dit que c'est une liste plate, son premier élément ne peut PAS être une liste.

Remarque: à la fin, dans (circulaire (cdr liste) (car liste)), tu appelles (récursivement (ce qui est bien!)) circulaire, mais avec 2 arguments, ce qui, d'un certain point de vue, est une bonne idée, mais, d'un autre, comme la fonction n'a qu'un paramètre... ça marche pô!
De plus (même remarque que précédemment), tu lui passes (car liste). Or, à aucun moment, on n'a besoin de s'interroger sur le contenu des éléments de la liste pour déterminer si elle est circulaire.

[l1informatique]

bonjour,

je tente ce code,

Code :

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

1
2
3
4
5
(defun circulaire (liste &optional (origine liste))
*(cond
**((atom liste) nil)
**((eq (cdr liste) origine)t)
**((circulaire (cdr liste) origine)) ) )

par contre quand je met

Code :

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

1
2
[12]> (circulaire '(a b c a b c) (setq liste '(a b c)))
NIL

pourtant c une liste circulaire :s

[jack-ft]

Bravo!
Pour moi, c'est bon (sous réserve que &optional (origine liste) mette bien la valeur de liste dans origine lors d'un appel avec un argument (ça peut dépendre de la version de lisp utilisée))!

par contre quand je met

Code :

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

1
2
[12]> (circulaire '(a b c a b c) (setq liste '(a b c)))
NIL

pourtant c une liste circulaire :s

Non non non! Y a pas de liste circulaire dans cet exemple!

Si on appelle circulaire avec plus d'un argument, on fausse tout:

Code :

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

1
2
(setq liste '(b c d))
(circulaire (cons 'a liste) liste) => t ; c'est de la triche...

Dans ce cas, circulaire teste que son 2ème argument est une sous-liste de son premier argument.


Pour avoir une vraie liste circulaire, reprends l'exemple de l'énoncé!

Qu'obtiens-tu avec:

Code :

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

1
2
3
(setq liste '(a b c))
(rplacd (cddr liste) liste) 
(circulaire liste)

[l1informatique]

bonjour,

quand j'essaye ces trois ligne, le deuxième m'envoie

Code :

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

1
2
3
4
5
(setq liste '(a b c))

(rplacd (cddr liste) liste) 

(circulaire liste)

Code :

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

1
2
3
4
5
 
(rplacd (cddr liste) liste)
*** - Il n'y a plus de place pour des objets LISP.
*** - Il n'y a plus de place pour des objets LISP.
*** - Il n'y a plus de place pour des objets LISP.

[jack-ft]

Hum... Il semblerait que ton interprète lisp ait du mal à afficher la liste circulaire ainsi créée!

Quel lisp utilises-tu et sur quel OS ?

Si c'est bien un problème d'affichage, tu peux remplacer la ligne par:

Code :

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

(prog1 "tout va bien" (rplacd (cddr liste) liste)))

ou bien par:

Code :

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

(progn "Jusqu'ici, tout allait bien" (rplacd (cddr liste) liste)) "tout va bien")

Tu peux aussi remplacer tout le bloc par:

Code :

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

1
2
3
(let ((liste '(a b c)))
  (rplacd (cddr liste) liste) 
  (circulaire liste))