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


Vocabulary
units.reduction

Inputs and outputs
suffixesan object
nan object
multiplieran object
basean object
i/fan object


Definition


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