home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / rbemx144.zip / ruby-1.4.4 / sample / fact.rb < prev    next >
Text File  |  1998-01-16  |  127b  |  11 lines

  1. def fact(n)
  2.   return 1 if n == 0
  3.   f = 1
  4.   while n>0
  5.     f *= n
  6.     n -= 1
  7.   end
  8.   return f
  9. end
  10. print fact(ARGV[0].to_i), "\n"
  11.