haskell - 如何检查您是否处于 Haskell 循环的第一次迭代中？

Question

如果这个问题没有真正阐明我的问题，我可以理解，所以这里有更多的解释:

我试图在我的字符串的开头添加字符串“+”，我得到的是这样的:

printLine :: [Int] -> String  --Type of the function
printLine [] = ""             --Base case

printLine (x:xs) = "+" ++ foldr (++) "+" f ++ printLine xs
                 where f = replicate x "-"

我从上面得到的结果:

+-----++------++------++------+

我想得到的结果:

+-----+------+------+------+

基本上我的问题是:如何只在开头添加“+”？我能理解这可能是一个愚蠢的问题，但我现在被困了一段时间，我无法在 SO 或其他地方找到答案。

Answer 1

建议:在第一次迭代时不要检测，这很难；而是检测您何时处于最后一次迭代中，这很容易，因为它是第一行中的 [] 情况。

printLine :: [Int] -> String
-- final iteration; add an extra + at the end
printLine [] = "+"

-- not the final iteration; don't include a + at the end of the -s
printLine (x:xs) = "+" ++ replicate x '-' ++ printLine xs