求汉明数

Question

打印头 1000 个汉明数（以2、3、5 的阶乘为因子的正整数）

main = print (take 1000 hamming)

hamming = 1 : map (2*) hamming ~~ map (3*) hamming ~~ map (5*) hamming
    where      
        xxs@(x:xs) ~~ yys@(y:ys)    -- To merge two streams:
            | x==y = (x : xs~~ys)   --  if the heads are common, take that
            | otherwise  = (y : xxs~~ys)  --    and proceed to merge the rest

xxs@(x:xs)表示什么?

BTW, 如何将[(1,2,3),(4,5,6), ...., ]中的数据存入文件啊?

[ 本帖最后由 sw2wolf 于 2009-4-28 11:02 编辑 ]

Answer 1

这个帖子中也是错的
http://hi.baidu.com/%D9%A4%C2%EB/blog/item/720bda43b48bc91772f05d06.html
(我今天查啥叫汉明数的时候搜的)

Answer 2

win_hate 版主数学真好，羡慕ing

Answer 3

原帖由 sw2wolf 于 2009-4-28 13:09 发表
谢谢! 另外只保存list的内容有什么简单方法吗?
red = [1,2,3,4,5]
hPutStrLn hFile $ show (red )

则文件内容是
[1,2,3,4,5]

如何只保存 1 2 3 4 5呢?

一个成员一个成员的输出，或者重新定义 list 的 show

Answer 4

lz  的代码有问题，应该改为：

2. main = print (take 100 hamming)
4. hamming = 1 : (map (2*) hamming) ~~ (map (3*) hamming) ~~ (map (5*) hamming)
5.     where
6.         xxs@(x:xs) ~~ yys@(y:ys)    -- To merge two streams:
7.             | x==y = (x : xs~~ys)   --  if the heads are common, take that
8.             | x<y = x:xs~~yys    -- !!!!!!
9.             | otherwise  = (y : xxs~~ys)  --    and proceed to merge the rest

复制代码

Answer 5

谢谢! 另外只保存list的内容有什么简单方法吗?
red = [1,2,3,4,5]
bracket (openFile "abc.txt" WriteMode) (hClose)
        (hd1 -> hPutStrLn hd1 $ show (red ))

则文件内容是
[1,2,3,4,5]

如何整体保存成 1 2 3 4 5呢?  (不用一个元素一个元素地存)

[ 本帖最后由 sw2wolf 于 2009-4-28 13:14 编辑 ]

Answer 6

原帖由 sw2wolf 于 2009-4-28 10:52 发表
打印头 1000 个汉明数（以2、3、5 的阶乘为因子的正整数）

这句话是错的，汉明数的定义是 以 2, 3, 5 的方幂为因子的正整数，也即 汉明数的质因子只有 2, 3, 5

Answer 7

原帖由 sw2wolf 于 2009-4-28 10:52 发表
xxs@(x:xs)表示什么?

就是将 x:xs 作为整体绑定到 xxs

[ 本帖最后由 MMMIX 于 2009-4-28 12:09 编辑 ]

Answer 8

如果还是不太清楚：
可以给你一个例子，你就知道 x, xs, xss 分别绑定的值了

2. f :: Int -> [a] -> [a]
3. f n xss@(x:xs)
4.   | n == 1 = [x]
5.   | n == 2 = xs
6.   | n == 3 = xss
7.   | otherwise = error "invalid choice"

复制代码
run

2. --                                 --传的值为 "abcde"
4. *Main> f 1 "abcde"          --从这可以看出 x == 'a'
5. "a"
6. *Main> f 2 "abcde"           --从这可以看出 xs == "bcde"
7. "bcde"
8. *Main> f 3 "abcde"          --从这可以看出 xss == "abcde"
9. "abcde"

复制代码
[ 本帖最后由 izhier 于 2009-4-28 11:16 编辑 ]

Answer 9

你可以到：http://bbs2.chinaunix.net/thread-1427365-1-1.html
帖子中的
7. Patterns(模式)
看一下