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

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

日志

快速求因子

已有 1015 次阅读2015-11-1 23:09 |个人分类:LISP|系统分类:应用| factor

(defun factor (n)
    (defun f (z)  (+ (* z z) 1))
    (setq x 1 y x k 0 i 1 d 1)
    (while (= d 1)
         (setq k (+ 1 k))
         (setq x (f x))
         (setq d (gcd (- x y) n))
         (cond
            ((and (< d n) (> d 1)) (princ d)(princ))
            ((= d n) (princ "此数是质数!"))
            (t (if (= k i) (progn (setq y x) (setq i (lsh i 1)))))
         )
    )
)

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

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

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

GMT+8, 2020-3-29 08:29 , Processed in 0.143453 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部