base91> ( base91 -- seq )
Base91 conversions
Prev:>base91 ( seq -- base91 )


Vocabulary
base91

Inputs
base91a sequence


Outputs
seqa sequence


Word description
Decode from Base91 encoding.

Definition
USING: base91.private kernel math sequences ;

IN: base91

:: base91> ( base91 -- seq )
f :> v! 0 :> b! 0 :> n! BV{ } clone :> accum base91 [
base91>ch v [
91 * v + v! v n shift b bitor b! v 8191 bitand 88 >
13 14 ? n + n!
[ n 7 > ]
[ b 255 bitand accum push b -8 shift b! n 8 - n! ]
do while f v!
] [ v! ] if
] each v [ b v n shift bitor 255 bitand accum push ] when
accum B{ } like ;