(round-tiebreak?) ( quotient rem denom tiebreak-quot -- q ? )

Vocabulary

math.functions

Inputs

quotient	an object
rem	an object
denom	an object
tiebreak-quot	an object

Outputs

q	an object
?	an object

Definition

USING: kernel math ;

IN: math.functions

: (round-tiebreak?)
    ( quotient rem denom tiebreak-quot -- q ? )
    [ [ > ] ] dip [ 2dip = and ] curry 3bi or ; inline