2

我有一个函数，旨在将字符串组合在一个列表中，在每个字符串之间添加一个分隔符，并使用 foldl 输出单个字符串。这是我所拥有的以及该功能的一些预期行为——它不起作用，我不确定为什么。

-- | `sepConcat sep [s1,...,sn]` returns `s1 ++ sep ++ s2 ++ ... ++ sep ++ sn`
--
-- >>> sepConcat "---" []
-- ""
--
-- >>> sepConcat ", " ["foo", "bar", "baz"]
-- "foo, bar, baz"
--
-- >>> sepConcat "#" ["a","b","c","d","e"]
-- "a#b#c#d#e"

sepConcat :: String -> [String] -> String
sepConcat sep []     = ""
sepConcat sep (x:xs) = foldLeft f base l
  where
    f a x            = a ++ sep ++ x
    base             = ""
    l                = xs
4

2 回答 2

0

最大的问题是您的模式匹配：

sepConcat sep []     = ""
sepConcat sep (x:xs) = foldLeft f base l

您不需要再次划分模式[]，(x:xs)因为foldl和foldr会处理这两种情况。这是如何foldl定义以递归列出的：

foldLeft :: (b -> a -> b) -> b -> [a] -> b
foldLeft f base []     = base
foldLeft f base (x:xs) = f (foldLeft f base xs) x

您只需要正确应用这两种情况：

sepConcat :: String -> [String] -> String
sepConcat sep xs = foldLeft (\rs s ->
 if null rs 
 then s ++ rs
 else s ++ sep ++ rs) "" xs

这里是空列表的情况，""函数用于列表的递归情况

用你的例子：

sepConcat ", " ["foo", "bar", "baz"]
=> "foo, bar, baz"
于 2019-11-07T03:01:13.647 回答
0

我认为您可以通过检查第一个参数是否为空字符串并相应地处理它来解决这个问题

sepConcat sep = foldl (\x y -> if x == "" then y else x ++ sep ++ y) ""
-- or
sepConcat sep = foldl combine ""
  where combine "" x = x
        combine x y = x ++ sep ++ y
于 2019-11-07T02:57:35.933 回答