拽什么,我只不过是拿出来和大家探讨一下

来源: wu74425 于 2003-09-26 19:44:00 [档案] [旧帖] [给我悄悄话] 阅读数 : (305 bytes)

本帖于 2004-02-06 15:24:48 时间, 由普通用户 old-cotton 编辑

(defun PERMUTATE (l / x1)
(cond
((null l) l)
((= (length l) 2) (list l (reverse l)))
(T
(repeat (length l)
(foreach x (permutate (cdr l))
(setq x1 (cons (cons (car l) x) x1)))
(setq l (append (cdr l) (list (car l)))))
x1)))