floor-to ( x step -- y )

Vocabulary

math.functions

Inputs

x	an object
step	an object

Outputs

y

an object

Definition

USING: kernel math ;

IN: math.functions

: floor-to ( x step -- y )
    [ [ / floor ] [ * ] bi ] unless-zero ;