Discussion :

[poupasol]

j'utilise mal le car (qui prend le premier terme d'une liste) et on m'envoie l'erreur "car: expects argument of type <pair>; given ()" lorsque que je veux utiliser ma fonction remplaceliste et je ne comprend pas pourquoi. Du coup je ne peux pas regarder si ma fonction marche ou pas...

voici la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
;;FONCTION REMPLACELISTE QUI REMPLACE TOUTES LA VALEURS DE LA LISTE1 PRESENTES DANS LA LISTE2 PAR UNE AUTRE VALEUR COMMUNE
(define (remplaceliste liste1 valeur liste2)
  (if (elem? (car liste1) liste2) (remplaceliste (cdr liste1) valeur (remplace (car liste1) valeur liste2))
      (remplaceliste (cdr liste1) valeur liste2)))
          
                       
;;FONCTION REMPLACE QUI REMPLACE UNE VALEUR D'UNE LISTE PAR UNE AUTRE
(define (remplace v1 v2 liste)
  (define (locale acc a b list1)
    (cond ( (null? list1) (inverse acc))
          ( (list? (car list1)) (locale ( cons (locale '( ) a b (car list1)) acc a b (cdr list1 ))))
          ( (eq? (car list1) a) (locale (cons b acc) a b (cdr list1)) )
          (else (locale (cons (car list1) acc) a b (cdr list1)))))
  (if (list? liste) (locale '() v1 v2 liste)))

[GnuVince]

Utiliser car ou cdr sur une liste vide est une erreur.

[poupasol]

je ne l'utilise pas car sur une liste vide dans ma fonction remplaceliste, seulement dans remplace et cette derniere marche tres bien. Je ne vois pas comment je peux faire autrement.

[Garulfo]

GnuVince a raison et le message d'erreur le confirme.
Peux-tu donner le test qui t'envoie ce message d'erreur ?
Tu as probablement une erreur dans la récursivité de remplaceliste

[+Guilhem]

1/ Tu te compliques la vie à faire une sous-fonction "locale" dans ta fonction "remplace".

2/ Ta fonction "remplace" n'est pas bonne si la liste contient des sous-listes. Regarde les parenthèses...

3/ Dans "remplaceliste" tu ne regardes jamais si "liste1" est null, donc forcément quand tu vas arriver au bout il va vouloir appliquer car, ce que tu ne peux pas faire sur une liste vide.

[poupasol]

merci, j'ai reussi a faire fonctionner la fonction.
En fait j'avais fait une fonction locale parce que mes autres fonction ou j'utilisais "car" comportaient toutes une fonction locale (indispensable) donc je me suis betement dit que c'etait pour ça.
Et voici ma fonction,

Code :

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

1
2
3
4
5
6
;;FONCTION REMPLACELISTE QUI REMPLACE TOUTES LA VALEURS DE LA LISTE1 PRESENTES DANS LA LISTE2 PAR UNE AUTRE VALEUR COMMUNE
(define (remplaceliste liste1 valeur liste2)
  (cond ( (null? liste1) liste2)
        ( (elem? (car liste1) liste2) (remplaceliste (cdr liste1) valeur (remplace (car liste1) valeur liste2)))
        (else (remplaceliste (cdr liste1) valeur liste2))))