(gcd) ( b a x y -- a d )


Vocabulary
math.functions.private

Definition
USING: kernel math ;

IN: math.functions.private

: (gcd) ( b a x y -- a d )
over zero?
[ 2nip ]
[ swap [ /mod [ over * swapd - ] dip ] keep (gcd) ] if ;