Vocabulary
units.reduction

Inputs
suffixesan object
nan object
multiplieran object
basean object


Outputs
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 [-] ;