DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: sprblck
今日帖子: 11
在线用户: 19
导航: 论坛 -> 发布代码 斑竹:liumazi,ruralboy  
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2018/8/15 13:12:45
标题:
快速计算素数列表,演示筛选法求素数和位图保存结果 浏览:1874
加入我的收藏
楼主: 忽然想计算一个大素数表,只是好玩,可能没什么用^o^
在我的电脑上测试,几百毫秒可以算出一亿之内的5761455个素数;几秒可以算出十亿之内的50847534个素数。最大可以计算4294967295以内的所有素数;改成64位应该可以算更多素数。
由于使用位图数组保存中间结果,所以比较节省内存,计算一亿以内的素数时,大约需要5兆,计算十亿以内的素数时,大约需要50兆。
输出到文件的方法也稍做了一些改进,速度还是比较快的。详见代码。
代码在D7,XE,RAD10.2下编译并测试通过,实测速度是D7版本的最快,附件所带的程序就是D7编译的。
注意了,如果你要测试输出10亿或更多的素数,请确保硬盘或SSD有足够的存储空间。10亿以内的素数大约需要几百兆的空间。
此帖子包含附件:iamdream_2018815131245.zip 大小:27.4K
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 ptdelphi (Delphi) ▲▲▲▲△ -
普通会员
2018/8/15 13:39:06
1楼: 顶一个,确实很快
----------------------------------------------
还可以更好
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2018/8/15 17:11:08
2楼: 代码有个小问题:直接运行程序,不能正确读取输入的数字,作了改正,见附件。
此帖子包含附件:iamdream_2018815171145.zip 大小:1,515B
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 ptdelphi (Delphi) ▲▲▲▲△ -
普通会员
2018/8/15 20:25:37
3楼: 谢谢,收了
----------------------------------------------
还可以更好
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2018/8/16 17:27:21
4楼: 换了个复杂点的筛子,貌似稍快一些。
此帖子包含附件:iamdream_2018816172721.zip 大小:50.2K
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行97.65625毫秒 RSS