数字乘积

mathe · 发表于 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

应该是

在http://www.zvon.org/other/haskell/Outputglobal/index.html
有常用的函数

mathe · 发表于 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是我自定义的函数，返回计数的

mathe · 发表于 2009-2-26 10:38:08

呵呵，是\`,就是另外一个方向倾斜的单引号

mathe · 发表于 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好理解些

mathe · 发表于 2009-2-26 10:41:29

呵呵，上面count函数计数弄错了，多1了，刚才修改过的，但是不知怎么的，文件没有修改成功。
现在重新计算,看来计算8已经非常慢了

mathe · 发表于 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
很可能结果增加的更快

账号		自动登录	找回密码
密码			欢迎注册

[讨论] 数字乘积