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

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

日志

n以内素数递归算法优化

已有 777 次阅读2014-10-25 13:04 |个人分类:LISP|系统分类:应用| 素数递归算法优化

(defun f (n)
     (if (= n 2) 
         (setq va (list 2)) 
         (if (= n 3)
             (setq va (list 3 2))
             (if (= n 4)
                (setq va (list 3 2))
                (if (= n 5)
                    (setq va (list 5 3 2))
                    (if (= (apply '* (mapcar '(lambda (x) (rem n x)) (f (fix (sqrt n))))) 0)
                       (if (> (rem n 6) 1)
                          (setq va (f (- n -1 (rem n 6))))
                          (setq va (f (- n 1 (rem n 6))))
                        )
                       (if (= (rem n 6) 5)
                         (setq va (cons n (f (- n -1 (rem n 6)))))
                         (setq va (cons n (f (- n 1 (rem n 6)))))
                        )
                    )
                )
             )
         )
      )
  va
(reverse  (f 1000))
 已同步至 mahuan1279的微博

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

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

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

GMT+8, 2024-3-29 02:59 , Processed in 0.125775 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部