求汉明数

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

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

MMMIX

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

试试这个

1. 
   
2. intercalate " " $ map show [1..5]
   

复制代码

其中 intercalate 是 Data.List 中的函数。

MMMIX

原帖由 izhier 于 2009-4-29 15:24 发表

这个 show 函数用的太好了
再给一个版本

unwords.map show $ [1..5]

这个我觉得写成如下形式更清晰些：
unwords $ map show [1..5]

MMMIX

原帖由 izhier 于 2009-4-29 15:01 发表

ghc 扩展 ？

嗯，GHC 的 Data.List 里面有许多有用的函数，包括 unwords 本身在 GHC 中也是在 Data.List 中定义的。