home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / HAM_W32.ZIP / SAMPLES / FACTOR.CSH < prev    next >
Encoding:
Text File  |  1994-05-12  |  304 b   |  17 lines
  1. #    Calculate the prime factors of an integer.
  2. #    Copyright (c) 1989 by Hamilton Laboratories.  All rights reserved.
  3.         
  4. proc factor(n)
  5.     if (n > 3) then
  6.         for i = 2 to floor(sqrt(n)) do
  7.             if (n % i == 0) then
  8.                 echo $i
  9.                 return factor(n//i)
  10.             end
  11.         end
  12.     end
  13.     return n
  14. end
  15.  
  16. factor $argv
  17.