(defun sortList (lst) (cond ((null lst) nil) (T (append (sortList (remove-if (lambda (x) (> (car lst) x)) (cdr lst))) (list (car lst)) (sortList (remove-if (lambda (x) (<= (car lst) x)) (cdr lst))))))) (write(sortList '(5 9 -1 6 0 12 67 3 8 -94)))
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more