stein ( u v -- w )

Vocabulary

math.extras

Inputs

u	an object
v	an object

Outputs

w

an object

Definition

USING: kernel math math.extras.private ;

IN: math.extras

: stein ( u v -- w )
    2dup [ zero? ] both?
    [ "gcd for zeros is undefined" throw ] when
    [ dup 0 < [ neg ] when ] bi@ [ 1 ] 2dip
    reduce-evens reduce-odds 2drop ;