29 lines
489 B
Common Lisp
29 lines
489 B
Common Lisp
(setq *print-case* :downcase)
|
|
|
|
(defvar li (list 4 8 9 2 1))
|
|
|
|
(defvar array nil)
|
|
|
|
(push li array)
|
|
|
|
(defparameter inc 1)
|
|
|
|
(defvar next (nth inc li))
|
|
|
|
(dolist (el li)
|
|
(if (> el next)
|
|
(progn
|
|
(defparameter tmp el)
|
|
(setq el next)
|
|
(setq next tmp)
|
|
(setq inc (+ inc 1))
|
|
(if (< (nth (- inc 2) li) el))
|
|
(push el array))
|
|
(progn
|
|
(setq inc (+ inc 1))
|
|
(push next array)))
|
|
(format t "~a~%" array))
|
|
|
|
|
|
(format t "~a" li)
|