数学研发论坛

 找回密码
 欢迎注册
楼主: medie2005

[讨论] 数字乘积

[复制链接]
发表于 2009-2-26 10:30:49 | 显示全部楼层
product就定义为foldr1 (*)了?
呵呵,我现在了解的函数很少很少
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:32:40 | 显示全部楼层
筛9的,我这么做的
Prelude List Char> let a = [(x, y) | x <- [10000001,10000003..99999999], x \`mod\` 3 /= 0, x \`mod\` 5 /= 0, x \`mod\` 7 /= 0, x \`mod\` 11 /= 0, x \`mod\` 13 /= 0, x \`mod\` 17 /= 0, x \`mod\` 19 /= 0, let y = (prodLevel x) - 1, y >= 9]

如果有结果,我
再判断素性
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:36:25 | 显示全部楼层
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:36:43 | 显示全部楼层
mod是不是就是左右都加单引号,
take 5 [c|c<-[0..1000000],count c>=8,c 'mod' 3/=0,c 'mod' 5/=0,c 'mod' 7/=0,c 'mod' 11/=0,c 'mod' 13/=0,c 'mod' 17/=0,c 'mod' 19/=0]
我这个怎么过不了?
count c是我自定义的函数,返回计数的
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:38:08 | 显示全部楼层
呵呵,是\`,就是另外一个方向倾斜的单引号
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:39:03 | 显示全部楼层
*Main> take 5 [c|c<-[0..1000000],count c>=8,c `mod` 2 /=0,c `mod` 3/=0,c `mod` 5
/=0,c `mod` 7/=0,c `mod` 11/=0,c `mod` 13/=0,c `mod` 17/=0,c `mod` 19/=0]
[186889,188869,246889,248869,264889]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:39:35 | 显示全部楼层
不是,是1左面的和~在一起的那个,把mod引起来,表示mod做中缀操作符
因为mod 默认是mod n m的,n \`mod\` m好理解些
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:41:29 | 显示全部楼层
呵呵,上面count函数计数弄错了,多1了,刚才修改过的,但是不知怎么的,文件没有修改成功。
现在重新计算,看来计算8已经非常慢了
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:43:28 | 显示全部楼层
*Main> take 5 [c|c<-[0..10000000],c `mod` 2 /=0,c `mod` 3/=0,c `mod` 5/=0,c `mod
` 7/=0,c `mod` 11/=0,c `mod` 13/=0,c `mod` 17/=0,c `mod` 19/=0,count c>=8]
[2677889,2678789,2678987,2687879,2687897]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2009-2-26 10:46:30 | 显示全部楼层
4#的结果中间有带0的

如果不允许带0
很可能结果增加的更快
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2021-2-25 21:29 , Processed in 0.057543 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表