Greatest common divisor

From Director Online Wiki
Jump to: navigation, search
--/******
--* GREATEST COMMON DIVISOR
--****
--* @Param  : 'x' <Integer>
--* @Param  : 'y' <Integer>
--* @Return : ''  <Integer>
--***/
on mGCD( x, y )
  --
  if Not(IntegerP(x) AND IntegerP(y)) then return( Void )
  --
  if (y = 0) then
    return( x )
  else
    return( mGCD(y, (x mod y)) )
  end if
end
--*/
Retrieved from "https://director-online.dasdeck.com/dougwiki/index.php?title=Greatest_common_divisor&oldid=2426"