Handbook
Glossary
decode8 ( seq -- )
Vocabulary
base32hex.private
Inputs
seq
an
object
Outputs
None
Definition
USING:
endian
io
kernel
math
sequences
;
IN:
base32hex.private
:
decode8
( 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