number-ap-style ( n -- str )

Vocabulary

math.text.english

Inputs

n

an object

Outputs

str

an object

Definition

USING: combinators.short-circuit kernel math math.order
math.parser ;

IN: math.text.english

: number-ap-style ( n -- str )
    dup { [ integer? ] [ 0 9 between? ] } 1&&
    [ number>text ] [ number>string ] if ;