КМ-01_Шолоп_1, Common Lisp

Language: Layout:

(defun bubble_sort (lst n)
    (cond ((null lst) '())                         ; пустий список
        ((= (length lst) 1) lst)                   ; один елемент
        ( (STRING<= (nth n lst) (nth (+ n 1) lst)) (cond ((= (length lst) 2) (list (nth (+ n 1) lst) (nth n lst)))    ; два елементи
                                                       ; порівняння перших двох
                                                       ((= n 0) (bubble_sort (append (list (nth (+ n 1) lst) (nth n lst)) (subseq lst 2)) 1 ))
                                                       ; порівняння останнійх двох
                                                       ((= (+ n 2) (length lst)) (append (bubble_sort (reverse (cdr (reverse (append (subseq lst 0 n) (list (nth (+ n 1) lst) (nth n lst)))))) 0) (last (append (subseq lst 0 n) (list (nth (+ n 1) lst) (nth n lst))))))
                                                       ; порівняння всіх інших
                                                       (t (bubble_sort (append (reverse (cons (nth (+ n 1) lst) (reverse (subseq lst 0 n)))) (cons (nth n lst) (subseq lst (+ n 2)))) (+ n 1))) ) ) 
        ; два останні елементи рівні 
        ((= (+ n 2) (length lst)) ( append (bubble_sort (reverse (cdr (reverse lst))) 0) (last lst) ))
        ; елементи рівні
        (t (bubble_sort lst (+ n 1)))
        ))

(print (bubble_sort '(a c c b a b c a d f e s s a a) 0))

[ + ] Show input
Absolute running time: 0.19 sec, cpu time: 0.03 sec, memory peak: 9 Mb, absolute service time: 0,24 sec