Bonjour je cherche à faire un quicksort(tri rapide) en lisp mais il y a une erreur, où est elle ? merci d'avance
Code :
- (de tri (l e l1 l2)
- (if (<= (car l) e)
- (cons l1 (car l))
- (cons l2 (car l)))
- (if (not (atomp l))
- (tri (cdr l) e l1 l2))))
- (de qsort (liste)
- (if (not (atomp liste))
- ((tri (cdr liste) (car l) () ())
- (cons (qsort l1) (cons e (qsort l2))) )
- liste
- ))
- (qsort '(2 3 1 4 2 3 4 1 3))
|