home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / pccts.zip / tutorial / fact.sc < prev    next >
Text File  |  1992-12-08  |  149b  |  12 lines
  1. main(n)
  2. {
  3.         print fact(n);
  4.         print "\n";
  5. }
  6.  
  7. fact(n)
  8. {
  9.         if ( n == "0" ) return "1";
  10.         return n * fact(n - "1");
  11. }
  12.