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

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

日志

倒数之和

热度 2已有 2311 次阅读2015-11-1 23:16 |个人分类:LISP|系统分类:应用| 自然数, 倒数

本帖最后由 aimisiyou 于 2015-10-14 23:28 编辑
1/a+1/b+1/c=1/n,a<=b<=c,,知自然数n
(defun ff (n)
   (setq i (+ n 1) lst nil)
   (while (<= i (* 3 n))
       (setq n1 (/ (* n i 1.0) (- i n)))
       (setq j (+ (fix n1) 1))
       (while (<= j (* 2 n1))
          (setq n3 (/ (* n i j 1.0) (- (* i j) (* n i) (* n j))))
          (if (= n3 (fix n3))
               (progn
                   (setq qlst (mapcar 'fix (vl-sort (mapcar '(lambda (x) (* x 1.0)) (list i j n3)) '<) ))
                   (if (= nil (member qlst lst))(setq lst (cons qlst lst)))
                )
           )
          (setq j (+ j 1))
        )
       (setq i (+ i 1))
     )
    (princ (length lst))
    (princ)
    (princ lst)
    (princ)
)
(ff 100)
1

路过

雷人

握手

鲜花

鸡蛋

刚表态过的朋友 (1 人)

发表评论 评论 (2 个评论)

回复 陈进佳 2016-2-22 20:42
何用
回复 mahuan1279 2016-2-23 19:58
用lisp来实现算法,玩玩而已。

facelist doodle 涂鸦板

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

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

GMT+8, 2025-7-6 01:59 , Processed in 0.134720 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部