(define (my-quicksort l)
(if (empty? l)
empty
(append
(my-quicksort (filter (lambda (x) (<= x (first l))) (rest l)))
(list (first l))
(my-quicksort (filter (lambda (x) (> x (first l))) (rest l)))
)
)
)
(if (empty? l)
empty
(append
(my-quicksort (filter (lambda (x) (<= x (first l))) (rest l)))
(list (first l))
(my-quicksort (filter (lambda (x) (> x (first l))) (rest l)))
)
)
)
Aufruf z.B. mit
(my-quicksort '(8 7 5 -4 2 22 9 4 -4 4 11 1 0))
produziert
(list -4 -4 0 1 2 4 4 5 7 8 9 11 22)
