base32-decode ( str -- x )

Vocabulary

geohash.private

Inputs

str

an object

Outputs

x

an object

Definition

USING: kernel math sequences ;

IN: geohash.private

: base32-decode ( str -- x )
    [ 0 59 ] dip
    [ base32-inverse nth swap [ shift bitor ] keep 5 - ] each
    drop ;