diff options
Diffstat (limited to 'module/ice-9/debugging/example-fns.scm')
-rw-r--r-- | module/ice-9/debugging/example-fns.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/module/ice-9/debugging/example-fns.scm b/module/ice-9/debugging/example-fns.scm deleted file mode 100644 index 30d412f00..000000000 --- a/module/ice-9/debugging/example-fns.scm +++ /dev/null @@ -1,17 +0,0 @@ -(define-module (ice-9 debugging example-fns) - #:export (fact1 fact2 facti)) - -(define (fact1 n) - (if (= n 0) - 1 - (* n (fact1 (- n 1))))) - -(define (facti n a) - (if (= n 0) - a - (facti (- n 1) (* a n)))) - -(define (fact2 n) - (facti n 1)) - -; Test: (fact2 3) |