simple-gcd-fixnum-integer ( x y -- z )

Vocabulary

math.partial-dispatch

Inputs

x	an object
y	an object

Outputs

z

an object

Definition

USING: kernel math math.private ;

IN: math.partial-dispatch

: simple-gcd-fixnum-integer ( x y -- z )
    dup fixnum?
    [ \ fixnum-gcd execute ]
    [ [ fixnum>bignum ] dip \ bignum-gcd execute ] if ; foldable
    flushable