注册 登录
明经CAD社区 返回首页

mahuan1279的个人空间 http://bbs.mjtd.com/?7303115 [收藏] [复制] [分享] [RSS]

日志

组合

已有 1779 次阅读2015-11-7 23:07 |个人分类:LISP|系统分类:应用

(defun ff (lst)
  (defun f (n)
    (setq i 0 flst nil)
    (while (<= i n)
      (setq flst (cons i flst))
      (setq i (+ i 1))
     )
     (reverse flst)
   )
  (if (and (= (length lst) 1) (setq nlst (f (car lst))))
       (progn
         (setq fflst nil)
         (setq fflst (mapcar '(lambda (x) (cons x fflst)) nlst))   
        )  
        (progn 
           (setq fflst (ff (cdr lst)) ttlst nil)
           (foreach a nlst
                 (foreach b fflst
                        (setq ttlst (cons (cons a b) ttlst))
                  )
            ) 
           (setq fflst (reverse ttlst))   
         )
   )
fflst
)
(ff '(1 2 3))

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 21:13 , Processed in 0.124056 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部