home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / IFACTOR.LI < prev    next >
Encoding:
Text File  |  1995-04-08  |  378 b   |  9 lines
  1. #  ifactor() is integer factor
  2. #  e.g. ifactor(12) gives [2,2,3,1]
  3.  
  4. ifactor(1):=1
  5. ifactor(x2_):=if(mod(x2,prime(1))==0, [ifactor(x2/prime(1)),prime(1)] )
  6. ifactor(x3_):=if(mod(x3,prime(2))==0, [ifactor(x3/prime(2)),prime(2)] )
  7. ifactor(x5_):=if(mod(x5,prime(3))==0, [ifactor(x5/prime(3)),prime(3)] )
  8. ifactor(x7_):=if(mod(x7,prime(4))==0, [ifactor(x7/prime(4)),prime(4)] )
  9.