home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / gcd.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  228 b   |  12 lines

  1. #!/usr/local/bin/clip
  2. #ì┼æσî÷û±Éö greatest common divisor
  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 = @x
  10. next
  11. @0
  12.