>base24 ( seq -- base24 )
Base24 conversions

Next:

base24> ( base24 -- seq )

Vocabulary
base24

Inputs

seq	a sequence

Outputs

base24

a sequence

Word description
Encode into Base24 encoding.

Definition

USING: base24.private endian grouping kernel math sequences ;

IN: base24

:: >base24 ( seq -- base24 )
    BV{ } clone :> accum seq length 4 mod 0 assert=
    seq 4 <groups>
    [ be> 7 [ 24 /mod ch>base24 accum push ] times drop ] each
    accum reverse! B{ } like ;