Handbook
Glossary
>base62 ( seq -- base62 )
Vocabulary
base62
Inputs
seq
an
object
Outputs
base62
an
object
Definition
USING:
base62.private
endian
kernel
math
sequences
;
IN:
base62
::
>base62
( seq -- base62 )
BV{
}
clone
:>
accum seq
[
zero?
not
]
find
[
drop
seq
length
]
unless
:>
i seq i
tail-slice
be>
[
62
/mod
ch>base62
accum
push
]
until-zero
i
alphabet
first
[
accum
push
]
curry
times
accum
reverse!
B{
}
like
;