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