base24> ( base24 -- seq )
Base24 conversions
Prev:>base24 ( seq -- base24 )


Vocabulary
base24

Inputs
base24a sequence


Outputs
seqa sequence


Word description
Decode from Base24 encoding.

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 ;