0 Members and 1 Guest are viewing this topic.
This is the lisp file. includes my code,gile's ,Stefan's,ireb's ,ElpanovEvgeniy's code.I compiled this file,then run the test.
(quicksort '(6 5 4 3 3 2 1)) ;;--> '(1 2 3 3 3 4 5 6)
Hi, Gile After revisit this site , I found a bug in the quicksort function you post .Code: [Select] (quicksort '(6 5 4 3 3 2 1)) ;;--> '(1 2 3 3 3 4 5 6)It more out a number 3 .
((< ele (car lst)) (left ele (cdr lst)))
((<= ele (car lst)) (left ele (cdr lst)))
Thanks Lee Mac , thank you a lot .