hundreds-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

: hundreds-place ( n -- str )
    100 /mod over 0 =
    [ 2drop "" ] [
        [ small-numbers " hundred" append ] dip 0 =
        [ " and " append ] unless
    ] if ;