mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
51d237110f
* scheme-using.texi: New (merged with modifications from CVS HEAD). * Makefile.am, gds-scheme.el, gds-server.el, gds.el: New (merged with modifications from CVS HEAD). * debugging/Makefile.am, debugging/example-fns.scm, debugging/ice-9-debugger-extensions.scm, debugging/steps.scm, debugging/trace.scm, debugging/traps.scm, debugging/trc.scm: New (merged with modifications from CVS HEAD). * gds-client.scm, gds-server.scm: New (merged with modifications from CVS HEAD).
17 lines
276 B
Scheme
17 lines
276 B
Scheme
(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)
|