力圖從列表（哈斯克爾）

Question

這裏是採取最後一個元素我的代碼，但是，我有不知道怎麼回事錯了，這裏是我的代碼：

ll :: [a] -> a 
ll lis = case lis of 
    (_:xs) -> ll xs 
    [] -> error"xx" 

並沒有來自終端的錯誤消息： 但是當我運行「ll [1,2,3]」時，我想得到「3」，但是，我得到「*例外：xx」的結果。

誰願意告訴我它有什麼問題？謝謝XD

Answer 1

你永遠不會返回列表的最後一個元素。第一個case子句刪除非空列表的第一個元素，然後遞歸調用ll。最終，你會打空列表的情況下，因此錯誤得到提高。

Answer 2

我發現它有助於開始與遞歸的基本情況：

ll [x] = x 

然後遞歸：

ll (_:xs) = ll xs 

當然給人一種有用的錯誤消息的是良好的作風。這是很方便的做到這一點。最後，任何情況下，匹配時：

ll _ = error "empty list" 

作爲獎勵的WTF！？！版本：

import Data.List 

ll = foldl' (flip const) (error "empty list") 

你可以稱之爲flip const的「老年癡呆症的功能」，它只是忘記了它的第一個參數和返回第二個，並作爲foldl'挖在列表中從左至右，它會給你的最後一個元素。

Answer 3

使用預定義功能最簡單的實現：

ll = head . reverse