decode8hex ( seq -- )


Vocabulary
base32.private

Inputs
seqan object


Outputs
None

Definition
USING: endian io kernel math sequences ;

IN: base32.private

: decode8hex ( seq -- )
[ 0 [ base32hex>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