求汉明数

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 编辑 ]

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 编辑 ]

sw2wolf

原帖由 MMMIX 于 2009-4-28 13:11 发表

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

重新定义 list 的 show 应该不错, 但觉得麻烦, 目前用如下笨办法解决: 将show (red)结果转换成需要的格式

red = [1,2,3,4,5]
red2 = filter (\x -> (x /= '[') && (x /= ']')) $ map (\x-> if x == ',' then ' ' else x)  $ show (red)
bracket (openFile "abc.txt" WriteMode) (hClose)
        (\hd1 -> hPutStrLn hd1 $ red2)

sw2wolf

原帖由 izhier 于 2009-4-29 09:42 发表
Prelude> let s = map (\x -> if Char.isDigit x then x else ' ').show $ [1, 2, 3, 4]
Prelude> putStrLn s
1 2 3 4
Prelude> words s
["1","2","3","4"]

Char.isDigit, 很好, 但结果中两端多了空格, 也就是把"[", "]"也换成了空格

[ 本帖最后由 sw2wolf 于 2009-4-29 10:37 编辑 ]