调试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