home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / ice-9 / debugging / example-fns.scm next >
Encoding:
Text File  |  2008-12-17  |  276 b   |  18 lines
  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)
  18.