base24> ( base24 -- seq )

Vocabulary

base24

Inputs

base24

an object

Outputs

seq

an object

Definition

USING: ascii base24.private endian grouping kernel math
sequences ;

IN: base24

:: base24> ( base24 -- seq )
    BV{ } clone :> accum base24 [ "- " member? ] reject
    >upper dup length 7 mod 0 assert= 7 <groups>
    [ 0 [ base24>ch swap 24 * + ] reduce 4 >be accum push-all ]
    each accum B{ } like ;