base32-encode ( x -- str )

Vocabulary

geohash.private

Inputs

x

an object

Outputs

str

an object

Definition

USING: kernel math math.bitwise sequences ;

IN: geohash.private

: base32-encode ( x -- str )
    -59 12
    [ dupd [ shift 5 bits base32-alphabet nth ] keep 5 + swap ]
    "" replicate-as 2nip ;