>base32-crockford ( n -- base32 )
Base32 conversions
Prev:base32hex> ( base32 -- seq )
Next:base32-crockford> ( base32 -- n )


Vocabulary
base32

Inputs
nan integer


Outputs
base32a sequence


Word description
Encode from Douglas Crockford's Base32 encoding.

Definition
USING: base32.private kernel math sequences ;

IN: base32

: >base32-crockford ( n -- base32 )
assert-non-negative
[ dup 0 > ] [ 32 /mod base32-crockford-alphabet nth ] ""
produce-as nip [ "0" ] when-empty reverse! ;