home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts1.zip / ADVTUT / FACT.SC < prev    next >
Text File  |  1993-04-01  |  138b  |  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.