我正在尝试创建一个方法,给定要写入的文件的名称和字符串列表,写入文件列表的内容,一次3个字符串。
e.g。
James Philipp Francis
Carl Tom Matt
Audrey Adam Patrick
到目前为止,我有这个:
toFile :: String -> [String] -> IO ()
toFile s [] = appendFile s ""
toFile s (x:y:z:xs) = appendFile s (x ++ " " ++ y ++ " " ++ z ++ "\n")
但我不知道如何在IO中应用递归...任何帮助都会受到赞赏。
提前致谢。
答案 0 :(得分:4)
首先想象一下如果你要返回一个列表你会怎么做。我认为它看起来应该很简单。
groupStrings :: [String] -> [String]
groupStrings [] = []
groupStrings (x:y:z:r) = (x ++ " " ++ y ++ " " ++ z ++ "\n") : groupStrings r
请注意,此模式并非详尽无遗:您必须处理列表包含1或2个元素的情况。最简单的方法是添加更多案例:
groupStrings :: [String] -> [String]
groupStrings [] = []
groupStrings [x] = x ++ "\n"
groupStrings [x,y] = x ++ " " ++ y ++ "\n"
groupStrings (x:y:z:r) = (x ++ " " ++ y ++ " " ++ z ++ "\n") : groupStrings r
然后你的功能是
toFile :: String -> [String] -> IO ()
toFile s xs = mapM_ (appendFile s) (groupStrings xs)
如果需要,您可以内联mapM_
和groupStrings
的定义,看看发生了什么:
toFile :: String -> [String] -> IO ()
toFile s [] = return () -- appendFile s "" does nothing
toFile s [x] = appendFile s $ x ++ "\n"
toFile s [x,y] = appendFile s $ x ++ " " ++ y ++ "\n"
toFile s (x:y:z:r) = do
appendFile s (x ++ " " ++ y ++ " " ++ z ++ "\n")
toFile s $ groupStrings r
你也可以把它写得很好:
import Data.List (intercalate)
import Data.List.Split (chunksOf)
toFile s = mapM_ (\x -> appendFile s $ intercalate " " x ++ "\n") . chunksOf 3