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


Vocabulary
base32

Inputs
base32an object


Outputs
nan object


Definition
USING: base32.private kernel math sequences ;

IN: base32

: base32-crockford-checksum> ( base32 -- n )
normalize-base32-crockford unclip-last
[ parse-base32-crockford ] dip
base32-crockford-checksum index over 37 mod assert= ;