find-unit-suffix ( suffixes n multiplier base -- i/f )

Vocabulary

units.reduction

Inputs

suffixes	an object
n	an object
multiplier	an object
base	an object

Outputs

i/f

an object

Definition

USING: kernel math math.order sequences ;

IN: units.reduction

:: find-unit-suffix ( suffixes n multiplier base -- i/f )
    suffixes length
    [ [ [ n ] dip multiplier base threshhold < ] find-integer ]
    keep or 1 [-] ;