Discussion :

[poupasol]

Bonjour, j'ai créé une fonction qui devrait classer par ordre croissant les nombre d'une liste mais j'ai une erreur sur l'utilisation du "car" et je ne comprend pas comment je pourrai y remedier. voici ma fonction, qui je pense est juste mais peut etre un peu compliquée... et comporte peut etre d'autres erreurs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
(define (ordre liste)
  
  (define (locale list final acc2)
    
    (cond ( (null? final) (locale (cdr list) (car list) acc2))
          ( (null? list) (locale acc2 final '()))
          ( (< (car list) (car final)) (locale (cdr list) final (cons (car list) acc2)))
          ( (and (null? list) (null? acc2)) final)
          
          (else (locale (cdr list) (cons (car list) final) (car final)))))
  
  (if (list? liste) (locale liste '() '())))

[+Guilhem]

J'ai du mal à comprendre ce que fait ton algo mais dans la sous-fonction locale, les 3 arguments sont des listes et parfois tu lui passes des nombres. Par exemple "( (null? final) (locale (cdr list) (car list) acc2))" dans la première condition du cond.

[poupasol]

En fait ma fonction comporte une fonction locale, et dans cette fonction locale il y a 3 listes qui servent d'accumulateur.
Dans list on met la liste de nombres qu'on veut mettre dans l'ordre et acc2 et final sont initialisées a 0.
Ensuite, comme final est vide on va prendre le premier terme de list et on le met dans final.
On regarde le premier terme de list et s'il est plus grand que le premier terme de final, on le remplace et on met le terme de final dans acc2 pour pas le perdre.
Et si au contraire le premier terme de list est plus petit que celui de final, on le met directement dans acc2.
Et quand on a fait ça avec tous les termes de list, c'est a dire que list est vide, on doit normalement avoir dans final le plus grand des termes. Et on va remettre dans list tous les termes non utilisés qui sont dans acc2.
Et quand tous les termes ont été mis dans final, on renvoie la liste final.

par exemple, si on veut classer par ordre croissant la liste '(5 8 4 2) on va faire:

(list)_________(final)________(acc2)
'(5 8 4 2)______'()___________'()
'(8 4 2)_______'(5) __________'()
'(4 2) ________'(8)__________'(5)
'(2) __________'(8)__________'(4 5)
'() ___________'(8) _________'(2 4 5)
'(2 4 5) ______'(8)___________'()
'(4 5)________'(2 8)__________'()
'(5) _________'(4 8) _________'(2)
'()___________'(5 8) ________'(4 2)
'(4 2) ________'(5 8) _________'()
'(2) _________'(4 5 8)________'()
'() __________'(4 5 8) ________'(2)
'(2) _________'(4 5 8)________'()
'() __________'(2 4 5 8) _____ '()

[+Guilhem]

Ton algo n'est pas bon. Quand on arrive à cette étape :

'(2 4 5) ______'(8)___________'()
'(4 5)________'(2 8)__________'()

En suivant les explications de ton algo, le 2 est plus petit que le premier terme de "final", donc on doit le mettre dans "acc2". Or tu le mets dans "final"...

[poupasol]

Oui effectivement lol. Mais je n'ai plus besoin de cette fonction pour le moment donc je m'y remettrai plus tard. Et pour ce qui est de l'histoire du car j'ai compris le probleme. Merci