stalin sort XD

stalin-sort.lisp

(defun stalin-sort (list)
    (let ((cur (car list))
        (rest  (cdr list)))
        (cond
            ;; [] leads []
            ((null rest) list)
            ;; e.g [3, 2, 4] => cur: 3, rest [2, 4], since 3 > 2 = car([2, 4])
            ;; keep run the sort by current filter
            ((> cur (car rest))
                (stalin-sort (cons cur (cdr rest))))
            ;; else just return the list by cur concat with rest after sort
            (t (cons cur (stalin-sort rest))))))