modifier le ième élement d'une liste de n élément

Version imprimable

13/10/2010, 11h51
croconux57

modifier le ième élement d'une liste de n élément

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)
13/10/2010, 13h22
Trap D

Qu'as-tu déjà tenté ?
13/10/2010, 13h57
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))
13/10/2010, 14h10
jabbounet
Si tu es en common lisp, je crois que tu peux utiliser setf
Code:

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.
13/10/2010, 14h18
gorgonite

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

Voici une version récursive terminale:

Code:

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

En Scheme on peut faire ça :

Code:

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.

16/10/2010, 16h04
Zavonen

Citation:

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.

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

Code:

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)))))

Citation:
Envoyé par jabbounet
autre suggéstion proche de ce qui a déjà été dit.
Code:

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 ;)

18/10/2010, 12h29
Zavonen

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

Code:

(cons elem (cdr list))
18/10/2010, 13h29
gorgonite

Citation:

Envoyé par Zavonen

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

Code:

(cons elem (cdr list))

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