Discussion :

[borough]

Bonjour à tous;

Je désire fusionner deux listes triées en skiiiiim pour obtenir une seule liste triée. voici mon programme:

Code :

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

1
2
3
4
5
6
7
8
(define fusion
  (lambda(Ls Ys)
    (cond ((null? Ls) Ys)
          ((null? Ys) Ls)
          ((< (car Ls) (car Ys)) (cons (car Ls) fusion((cdr Ls) Ys)))
          (else 
           (cons (car Ys) fusion(Ls (cdr Ys)))))))
(fusion '(1 3 4) '(2 3 6))

et l'erreur que m'affiche "drracket" est la suivante:

Code :

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

procedure application: expected procedure, given: (3 4); arguments were: (2 3 6)

de l'aide SVP!!!

[Trap D]

Problème de parenthèses : lorsque tu écris (Ls (cdr Ys)) cela signifie que tu appliques la fonction de nom L à (cdr Ys) ce que tu ne peux pas faire puisque L est le nom d'une liste, même erreur pour ((cdr Ls) Ys).
par contre je suppose que lorsque tu écris (cons (car Ys) fusion(Ls (cdr Ys))) tu veux concaténer le car de Y au résultat de la fusion de Ls avec le cdr de Ys, la il manque peut être une parenthèse quelque part...
Je te laisse méditer un peu sur tout ça.

[borough]

merci pour la réponse;

lorsque j'ai écrit fusion(Ls (cdr Ys)), ceci c'est un appel récursif de la fonction fusion qui prend en argument la premiere liste Ls et la queue de la deuxième liste Ys. Bref, je vais expliquer le fonctionnement de mon programme de tri:

. Si une des listes est vide alors renvoyer l'autre liste
. Sinon, on compare à chaque fois les deux têtes des deux listes et on construit la liste des minimum extraits à chaque étape.

Alors, j'ai tout essayé mais en vain.

[Trap D]

Oui,mais tu as oublié une parenthèse avant fusion.

[bondak]

Bonjour,
Voici la procédure corrigée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
(define fusion
  (lambda (Ls Ys)
    (cond 
      ((null? Ls) Ys)      
      ((null? Ys) Ls)          
      ((< (car Ls) (car Ys)) 
       (cons (car Ls) 
             (fusion (cdr Ls) Ys)))     
      (else 
       (cons (car Ys) 
             (fusion Ls (cdr Ys)))))))