tens-place ( n -- str )

Vocabulary

math.text.english.private

Inputs

n

an object

Outputs

str

an object

Definition

USING: kernel math sequences ;

IN: math.text.english.private

: tens-place ( n -- str )
    100 mod dup 20 >= [
        10 /mod [ tens ] dip
        [ small-numbers "-" glue ] unless-zero
    ] [ [ "" ] [ small-numbers ] if-zero ] if ;