嘿，刚接触Haskell的话，递归处理列表确实需要点时间适应～我来帮你梳理下你代码里的问题，然后给出几种靠谱的实现方式！

首先，先说说你现有代码的几个问题：

• 类型不匹配：deleteLast (h:[]) = h返回的是单个Char，但另外两个分支返回的是[Char]（字符串），Haskell是强类型语言，这会直接报错。
• 递归逻辑错误：你的递归只在找最后一个字符，没有把前面的字符保留下来，所以根本没法得到去掉最后一个字符的字符串。
• result1的写法完全不符合Haskell语法，deleteLast是函数不是列表元素，t也没有定义，这个表达式根本无法运行。

接下来给你几种正确的实现方案：

1. 基础递归实现 #

我们需要在递归过程中把前面的字符拼接回去，这样才能得到去掉最后一个字符的结果：

deleteLast :: [Char] -> [Char]
deleteLast [] = error "Empty list!"  -- 空字符串的情况，这里用error抛出错误
deleteLast [_] = []                  -- 单个字符的字符串，去掉后是空字符串
deleteLast (h:t) = h : deleteLast t  -- 把当前字符拼到尾部处理后的结果上

举个例子，调用deleteLast "hello"时，会一步步拆解为'h' : deleteLast "ello" → 'h':'e' : deleteLast "llo"，直到最后处理"o"返回[]，最终得到"hell"。

2. 更安全的Maybe版本 #

上面的实现遇到空字符串会直接崩溃，在Haskell里更推荐用Maybe类型来处理这种可能失败的情况，避免运行时错误：

deleteLastSafe :: [Char] -> Maybe [Char]
deleteLastSafe [] = Nothing
deleteLastSafe [_] = Just []
deleteLastSafe (h:t) = (h :) <$> deleteLastSafe t

调用时，空字符串会返回Nothing，非空字符串返回Just "处理后的结果"，比如deleteLastSafe "test"得到Just "tes"，deleteLastSafe ""得到Nothing。

3. 利用标准库函数 #

Haskell标准库其实已经提供了去掉列表最后一个元素的函数init，我们可以直接用它来实现，注意init在空列表上会报错，所以可以加个判断：

deleteLastUsingInit :: [Char] -> [Char]
deleteLastUsingInit s
  | null s = error "Empty list!"
  | otherwise = init s

同样，也可以封装成安全的Maybe版本：

deleteLastUsingInitSafe :: [Char] -> Maybe [Char]
deleteLastUsingInitSafe s
  | null s = Nothing
  | otherwise = Just (init s)

内容的提问来源于stack exchange，提问作者Ethan Lim