調試Haskell

Question

我是函數式編程的新手，我想調試遞歸函數以查看爲什麼我將特定值作爲返回值。我如何實現這一目標？我在這個網站以及在線上發現了一些答案，但是我無法繞過這個想法。任何幫助，將不勝感激。

recur = \a -> if a>100 then a-10 else recur (recur (a+11)) 

Answer 1

你可以這樣做（使用Debug.Trace）：

import Debug.Trace (trace) 

recur a | trace ("recur " ++ show a) False = undefined 
recur a = if a>100 then a-10 else recur (recur (a+11)) 

這將產生輸出的每個功能recur被稱爲（或相當的時間，因爲Haskell是惰性的，每次申請recur的結果是需要）。

樣本輸出（在ghci中）：

*Main> recur 99 
recur 99 
recur 110 
recur 100 
recur 111 
recur 101 
91