如何删除字符串中的特定最后一个字符

Question

我想删除字符串的最后一个字符，如果它是“！”

我知道我想要基本情况​​，即。 如果字符串为空：

remove [] = []

如何索引最后一个字符？ 使用：

last

并且，为这个问题创建“if, then”循环的最佳方法是什么？

我应该使用警卫吗？ |

Answer 1

Haskell 解决这个问题的方法是递归和模式匹配：

remove "" = ""                   -- obvious
remove "!" = ""                  -- that's what we're here for
remove (x:xs) = (x : remove xs)  -- keep the head, proceed to the tail

任何使用last和 conditional 结构的尝试都将不那么优雅和高效。

Answer 2

您不必使用循环来执行此操作。 代替这种命令式思维，您可以采取更高层次的观点，并从几个更高阶的函数中组合程序，得到这个单行，

import Data.List (tails)

foo :: String -> String
foo  =  (take 1 =<<) . takeWhile (/= "!") . tails
 --  =  concat . map (take 1) . takeWhile (/= "!") . tails

或使用列表理解，

foo xs  =  [c | (c:_) <- takeWhile (/= "!") $ tails xs]

tails反复获取输入列表的tail s， takeWhile去掉最后的'!' ，如果有的话， concatMap (take 1)从它的tails重新构造字符串：

concatMap (take 1) . tails

是对列表的身份操作，我们正在中间进行操作。