positive>base ( num radix -- str )

Vocabulary

math.parser.private

Inputs

num	an object
radix	an object

Outputs

str

an object

Definition

USING: combinators kernel math math.parser sequences ;

IN: math.parser.private

: positive>base ( num radix -- str )
    {
        { 10 [ positive>dec ] }
        [
            dup 1 <= [ invalid-radix ] when [ dup 0 > ] swap
            [ /mod >digit ] curry "" produce-as nip reverse!
        ]
    } case ;