>base36 ( seq -- base36 )

Vocabulary

base36

Inputs

seq

an object

Outputs

base36

an object

Definition

USING: base36.private endian kernel math sequences ;

IN: base36

:: >base36 ( seq -- base36 )
    BV{ } clone :> accum seq [ zero? not ] find
    [ drop seq length ] unless :> i seq i tail-slice be>
    [ 36 /mod ch>base36 accum push ] until-zero i alphabet first
    [ accum push ] curry times accum reverse! B{ } like ;