reduce-evens ( value u v -- value' u' v' )

Vocabulary

math.extras.private

Inputs

value	an object
u	an object
v	an object

Outputs

value'	an object
u'	an object
v'	an object

Definition

USING: kernel math ;

IN: math.extras.private

: reduce-evens ( value u v -- value' u' v' )
    [ 2dup [ even? ] both? ] [ [ 2 * ] [ 2/ ] [ 2/ ] tri* ]
    while ;