数字乘积

mathe

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

无心人

筛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] 如果有结果，我 再判断素性

无心人

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

mathe

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

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

mathe

*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]

无心人

不是，是1左面的和~在一起的那个，把mod引起来，表示mod做中缀操作符 因为mod 默认是mod n m的，n \`mod\` m好理解些

mathe

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

mathe

*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]

无心人

4#的结果中间有带0的 如果不允许带0 很可能结果增加的更快