↑こんな記事があったのでやってみたらすごく便利。trace。
(define (fact n) (if (zero? n) 1 (* n (fact (- n 1))))) ;; => fact
(use slib) ;; => #<undef> (require 'trace) ;; => #t (trace fact) ;; => #<closure (debug:trace-procedure debug:trace-procedure)>
(fact 5)
実行結果
gosh> CALL fact 5 CALL fact 4 CALL fact 3 CALL fact 2 CALL fact 1 RETN fact 1 RETN fact 2 RETN fact 6 RETN fact 24 RETN fact 120 120
0 件のコメント:
コメントを投稿