[bpt/guile.git] / module / ice-9 / debugging / example-fns.scm

(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)
Commit	Line	Data
8746959c NJ	1	(define-module (ice-9 debugging example-fns)
	2	#:export (fact1 fact2 facti))
	3
	4	(define (fact1 n)
	5	(if (= n 0)
	6	1
	7	(* n (fact1 (- n 1)))))
	8
	9	(define (facti n a)
	10	(if (= n 0)
	11	a
	12	(facti (- n 1) (* a n))))
	13
	14	(define (fact2 n)
	15	(facti n 1))
	16
	17	; Test: (fact2 3)