论坛 › 编程擂台 › 数字乘积

mathe 发表于 2009-2-26 10:30:49

product就定义为foldr1 (*)了？:)
呵呵，我现在了解的函数很少很少

无心人 发表于 2009-2-26 10:32:40

筛9的，我这么做的
Prelude List Char> let a = [(x, y) | x <- , 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 ,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 ,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]

无心人 发表于 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 `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]

无心人 发表于 2009-2-26 10:46:30

4#的结果中间有带0的

如果不允许带0
很可能结果增加的更快

查看完整版本: 数字乘积