Question

visual lisp输入四个数,从小到大排序

Answer 1

根据题意，试编程序如下：
(defun carnth (i l) ; 表取头,保留表L前面I-1个元素，函数返回新表
(if (= i (length l))
l
(progn
(setq l (reverse l)
i (- (length l) i 1)
l (cdrnth i l)
)
(reverse l)
)
)
)

(defun cdrnth (i l) ; 表取尾,去除表L后面I个元素，函数返回新表
(repeat (1+ i) (setq l (cdr l)))
)

(defun delnth (i l) ; 删除表L中第I个元素，函数返回新表
(append (carnth i l) (cdrnth i l))
)

(defun min2max (l / lp a i k) ;表中的数从小到大排序
(while (> (length l) 0)
(setq lp (cons (setq a (apply 'max l)) lp))
(setq i 0
k t
)
(while k
(if (= a (nth i l))
(setq k nil
l (delnth i l)
)
(setq i (1+ i))
)
)
)
lp
)
程序运行及结果：
命令：(min2max '( 1 2 5 4 3))
函数返回值：(1 2 3 4 5)