求汉明数

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)

izhier

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

[ 本帖最后由 izhier 于 2009-4-29 09:47 编辑 ]

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

izhier

嗯，但是在我们获取这些数字时，可以用 words 函数去掉多余的空格呀

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 中的函数。

izhier

原帖由 MMMIX 于 2009-4-29 14:53 发表
其中 intercalate 是 Data.List 中的函数。

ghc 扩展 ？
标准函数库里找不到它的定义呀 ！

[ 本帖最后由 izhier 于 2009-4-29 15:27 编辑 ]

izhier

原帖由 MMMIX 于 2009-4-29 14:53 发表
intercalate " " $ map show [1..5]

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

unwords.map show $ [1..5]

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 中定义的。

izhier

原帖由 MMMIX 于 2009-4-29 17:05 发表

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

嗯
各有优缺点

unwords $ map show [1..5] 直接用比较好看

unwords. map show 定义一个函数比较好看