recombine ( seq -- str )

Vocabulary

math.text.english.private

Inputs

seq

an object

Outputs

str

an object

Definition

USING: kernel math sequences ;

IN: math.text.english.private

: recombine ( seq -- str )
    dup length 1 =
    [ first 3digits>text ] [
        [ set-conjunction "" ] [ length ] [ ] tri
        [ (recombine) ] curry each-integer
    ] if ;