拽什麽,我隻不過是拿出來和大家探討一下

來源: wu74425 於 2003-09-26 19:44:00 [] [舊帖] [給我悄悄話] 本文已被閱讀： 次 (305 bytes)
本文內容已被 [ wu74425 ] 在 2004-02-06 15:24:48 編輯過。如有問題，請報告版主或論壇管理刪除.
(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)))




--文學城www.wenxuecity.com--

所有跟帖： 

• 70歲的老叟會有時間跟你瞎扯, -外加探討- ♀ 給 外加探討 發送悄悄話 (0 bytes) () 09/26/2003 postreply 19:55:00

請您先登陸，再發跟帖！

發現Adblock插件

如要繼續瀏覽
請支持本站 請務必在本站關閉/移除任何Adblock

關閉Adblock後 請點擊

請參考如何關閉Adblock/Adblock plus

安裝Adblock plus用戶請點擊瀏覽器圖標
選擇“Disable on www.wenxuecity.com”

安裝Adblock用戶請點擊圖標
選擇“don't run on pages on this domain”