求汉明数

sw2wolf

打印头 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 编辑 ]

izhier

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

izhier

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

1. 
   
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

1. 
   
2. --                                 --传的值为 "abcde"
   
3. 
   
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 编辑 ]

MMMIX

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

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

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

MMMIX

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

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

sw2wolf

谢谢! 另外只保存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 编辑 ]

MMMIX

原帖由 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

win_hate

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

1. 
   
2. main = print (take 100 hamming)
   
3. 
   
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
   

复制代码

izhier

win_hate 版主数学真好，羡慕ing

izhier

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