; A cute quicksort. (define (sort lst) (cond ((null? lst) nil) ((null? (cdr lst)) lst) (#t (append (sort (select (lambda (x) (<= x (car lst))) (cdr lst))) (cons (car lst) ()) (sort (select (lambda (x) (> x (car lst))) (cdr lst))) ) ) ) )