SchemeTraceDefine/Beispiel

Wiki-Quelltext dieser Seite.

<language>SchemeJS</language>
<code id="5ba49673758ab">
[[SchemeTraceDefine|trace-define]]
(trace-define fak-rek
  (lambda (n)
    (if (= n 0)
        1
        (* n (fak-rek (- n 1))))))
</code>
<run id="5ba496737591e">
(fak-rek 5)
</run>