home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / lcm.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  253 b   |  12 lines
  1. #!/usr/local/bin/clip
  2. #ì┼żî÷ö{Éö least common multiple
  3. #\!- <val> [<val> ...]
  4. for [@*] = 1; [@*] < @!; [@*]++
  5.     @x = @0; @y = @:('0 + [@*])
  6.     while @y != 0
  7.         @t = @x % @y; @x = @y; @y = @t
  8.     endwhile
  9.     @0 = abs (@0 * @:('0 + [@*])) / @x
  10. next
  11. @0
  12.