home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / BBEdit / MacBob 1.0ß2 / Examples / Fact.bob < prev    next >
Encoding:
Text File  |  1993-10-02  |  194 b   |  16 lines  |  [TEXT/R*ch]
  1. factorial(n)
  2. {
  3.     return n == 0 ? 1 : n * factorial(n-1);
  4. }
  5.  
  6. do_factorial(n)
  7. {
  8.     print(n," factorial is ",factorial(n),"\n");
  9. }
  10.  
  11. main(; i)
  12. {
  13.     for (i = 1; i <= 10; ++i)
  14.     do_factorial(i);
  15. }
  16.