Написать функцию сортировки списка методом прямого выбора

(defun vsort (lst)
  (labels ((mi (lst) (reduce #'(lambda (acc x) (if (< acc x) acc x)) (cdr lst) :initial-value (car lst)))
           (rem-first (lst x)
               (cond ((null lst) nil)
                     ((eq x (car lst)) (cdr lst))
                     (t (cons (car lst) (rem-first (cdr lst) x))))))
     (if (null lst) nil 
         (let ((mm (mi lst)))
           (cons mm (vsort (rem-first lst mm)))))))
 
==> vsort
 
(vsort '(1 2 3 1 2 3 1 2 3 -7))
 
==> (-7 1 1 1 2 2 2 3 3 3)

(defun selection-sort (w)
  (when w (cons (mini w) (selection-sort (remove (mini w) w)))))
 
(defun mini (w)
  (mi (cdr w) (car w)))
 
(defun mi (w m)
  (cond ((null w) m)
    ((< (car w) m) (mi (cdr w) (car w)))
        ((mi (cdr w) m))))
 
> (selection-sort '(5 4 7 1 3))
(1 3 4 5 7)

(defun selection-sort (w)
  (when w (cons (mini w) (selection-sort (remove (mini w) w)))))
 
(defun mini (w)
  (mi (cdr w) (car w)))
 
(defun mi (w m)
  (if w (mi (cdr w) (if (< (car w) m) (car w) m)) m))
 
> (selection-sort '(5 4 7 1 3))
(1 3 4 5 7)

(defun selection-sort (w)
  (when w (cons (mi (cdr w) (car w))
                (selection-sort (remove (mi (cdr w) (car w)) w)))))
 
(defun mi (w m)
  (if w (mi (cdr w) (if (< (car w) m) (car w) m)) m))
 
> (selection-sort '(5 4 7 1 3))
(1 3 4 5 7)

(defun select-sort (w)
  (when w (let ((m (reduce #'min w)))
            (cons m (select-sort (remove m w :count 1))))))
 
> (select-sort '(1 2 3 4 1 2 3 4))
(1 1 2 2 3 3 4 4)