>base24 ( seq -- base24 )

Vocabulary

base24

Inputs

seq

an object

Outputs

base24

an object

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 ;