Discussion :

[croconux57]

Bonjour je chercher a modifier le ième élément d'une liste de n élément
c'est à dire
> (setq l '(1 2 3 4 5)) ; pour ex de liste
> (modif l 3 "toto") ; modif reçois la liste le numero de l'indice de l'élément à modifier est la nouvelle valeur
(1 2 3 "toto" 5)
> l
(1 2 3 "toto" 5)

[Trap D]

Qu'as-tu déjà tenté ?

[gorgonite]

as-tu au moins une idée d'algorithme récursif à utiliser sur la liste ?


a priori, il ne faut pas oublier de :

• choisir quoi faire si l'indice à modifier est plus grand que la liste
• les "cas de base" sont
  
  • la liste vide
  • le fait d'atteindre le nième élément de la liste
• la récursion conserve la tête de la liste qu'elle ajoute au reste de la liste qui aura été modifié

après suivant le dialecte lisp utilisé, le code peut changer, mais tu auras sûrement accès à

• car pour récupérer la tête de la liste (parfois appelé first)
• cdr pour récupérer le reste d'une liste (parfois appelé rest)
• un pattern-matching avec des when ou bien le branchement conditionnel (if (condition) (then-expr) (else-expr))

[jabbounet]

Si tu es en common lisp, je crois que tu peux utiliser setf

Code :

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

1
2
 
(setf (nth 3 l) "toto")

le seul lisp que je manipule actuellement est celui de mon éditeur (emacs), et cette fonction n'y est pas.

[gorgonite]

il faut bannir le plus possible les approches à effet de bord, sauf si les performances nous y contraignent

[Zavonen]

Voici une version récursive terminale:

Code lisp :

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

1
2
3
4
5
6
7
8
9
10
(defun modnth (n L x)
  (if (and (>= n 0) (< n (length L))) 
      (if (eq n 0) (rplaca L x)
      (modnth (- n 1) (cdr L) x)
      )
      ))
 
(setq L '(a b c))
(modnth 1 L 'x)
L

[Trap D]

En Scheme on peut faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
(define (modif n L x)
   (let ((t 0))
    (map (lambda (z)
             (begin
               (set! t (+ t 1))
               (if (= t n)
                   x
                   z)))
           L)))

Zavonen >> Calculer à chaque fois la longueur de la liste ne me parait pas une bonne chose.

[Zavonen]

Zavonen >> Calculer à chaque fois la longueur de la liste ne me parait pas une bonne chose.

Exact, il faut sortir cela de la récursion.

[jabbounet]

autre suggéstion proche de ce qui a déjà été dit.

Code :

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

1
2
3
4
5
6
7
 
(defun replace (list n elem)
  ""
  (cond  
   ((eq () list) ()) 
   ((eq n 0) (cons elem (cdr list))) 
   (t (cons (car list) (replace (cdr list) (- n 1) elem)))))

[gorgonite]

autre suggéstion proche de ce qui a déjà été dit.

Code :

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

1
2
3
4
5
6
7
 
(defun replace (list n elem)
  ""
  (cond  
   ((eq () list) ()) 
   ((eq n 0) (cons elem (cdr list))) 
   (t (cons (car list) (replace (cdr list) (- n 1) elem)))))

pas loin du pseudo-code que je proposais... sauf que j'étais sur 2 if au lieu du cond

[Zavonen]

S'il s'agit de faire un remplacement 'en place', (ce que j'ai compris) un rplaca est beaucoup plus rapide que:

Code :

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

(cons elem (cdr list))

[gorgonite]

S'il s'agit de faire un remplacement 'en place', (ce que j'ai compris) un rplaca est beaucoup plus rapide que:

Code :

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

(cons elem (cdr list))

certes mais mieux vaut privilégier la pureté du fonctionnel sauf contrainte (perf & cie)