Написать программу сортировки списка методом пузырька

(defun bubble-sort (w) 
  (do ((i (- (length w) 1) (- i 1)))
      ((= i 0))
    (do ((j 0 (+ j 1)))
        ((= j i))
      (when (< (nth i w) (nth j w))
        (let ((tmp (nth i w)))
          (setf (nth i w) (nth j w) (nth j w) tmp)))))       
  w)
 
> (bubble-sort '(3 2 1))
(1 2 3)

(defun bubble-sort (w) 
  (do ((i (1- (length w)) (1- i)))
      ((= i 0))
    (do ((j 0 (1+ j)))
        ((= j i))
      (when (< (nth i w) (nth j w))
        (let ((tmp (nth i w)))
          (setf (nth i w) (nth j w) (nth j w) tmp)))))       
  w)
 
> (bubble-sort '(3 2 1))
(1 2 3)

(defun bubble-sort (w) 
  (do ((i (1- (length w)) (1- i)))
      ((= i 0))
    (do ((j 0 (1+ j)))
        ((= j i))
      (when (< (nth i w) (nth j w))
        (rotatef (nth i w) (nth j w)))))       
  w)
 
> (bubble-sort '(3 2 1))
(1 2 3)

;; Проход по списку и перенос самого большого значения в конец
 
(defun step (lst)
  (cond ((null (cdr lst)) lst)
        ((>= (cadr lst) (car lst)) (cons (car lst) (step (cdr lst))))
        (t (cons (cadr lst) (step (cons (car lst) (cddr lst)))))))  
 
==> STEP
 
;; Пузырьковая сортировка - n-кратное выполнение step
 
(defun bubble (lst)
   (let ((res lst))
     (dotimes (i (length lst) res)
       (setq res (step res)))))
 
==> BUBBLE
 
;; Проверка
 
(bubble '(1 2 3 12 3 4 5 8 -1))
==> (-1 1 2 3 3 4 5 8 12)

(defun bubble-sort (w) 
  (do ((i (1- (length w)) (1- i)))
      ((zerop i))
    (do ((j 0 (1+ j)))
        ((= j i))
      (when (< (nth i w) (nth j w))
        (rotatef (nth i w) (nth j w)))))       
  w)
    
> (bubble-sort '(7 3 8 2 1 0 4 6 3 7 5 3 9 9 3 4 3 8 6 5))
(0 1 2 3 3 3 3 3 4 4 5 5 6 6 7 7 8 8 9 9)

(defun bubble-sort (w) 
  (do ((i (1- (length w)) (1- i)))
      ((zerop i))
    (do ((j 0 (1+ j)))
        ((= j i))
      (when (< (nth i w) (nth j w))
        (rotatef (nth i w) (nth j w)))))       
  w)
 
> (bubble-sort (list 7 3 8 2 1 0 4 6 3 7 5 3 9 9 3 4 3 8 6 5))
(0 1 2 3 3 3 3 3 4 4 5 5 6 6 7 7 8 8 9 9)

(defun bubble-sort (v &aux (w (copy-list v))) 
  (do ((i (1- (length w)) (1- i)))
      ((zerop i))
    (do ((j 0 (1+ j)))
        ((= j i))
      (when (< (nth i w) (nth j w))
        (rotatef (nth i w) (nth j w)))))       
  w)
 
> (bubble-sort '(7 3 8 2 1 0 4 6 3 7 5 3 9 9 3 4 3 8 6 5))
(0 1 2 3 3 3 3 3 4 4 5 5 6 6 7 7 8 8 9 9)

(defun bubble-sort (lst)
  (let ((res lst)
         (c   0))
    (labels ((step (lst)
                  (cond ((null (cdr lst)) lst)
                        ((>= (cadr lst) (car lst)) (cons (car lst) (step (cdr lst))))
                        (t (setq c 1) (cons (cadr lst) (step (cons (car lst) (cddr lst))))))))
            (loop ;; внутренний цикл
               (setq c 0)
               (setq res (step res))
               (when (zerop c) (return res)))))) ;; если перестановок не было - выход
 
==> BUBBLE-SORT
 
(bubble-sort '(1 2 3 1 2 3 1 2 3))
==> (1 1 1 2 2 2 3 3 3)