zdecode8 ( seq -- )

Vocabulary

base32.private

Inputs

seq

an object

Outputs

None

Definition

USING: endian io kernel math sequences ;

IN: base32.private

: zdecode8 ( seq -- )
    [ 0 [ zbase32>ch swap 5 shift bitor ] reduce 5 >be ]
    [ [ 61 = ] count ] bi
    [ write ] [ B{ 0 4 0 3 2 0 1 } nth head-slice write ]
    if-zero ; inline