squash-bits ( m -- n )

Vocabulary

geohash.private

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: geohash.private

: squash-bits ( m -- n )
    6148914691236517205 bitand dup -1 shift bitor
    3689348814741910323 bitand dup -2 shift bitor
    1085102592571150095 bitand dup -4 shift bitor
    71777214294589695 bitand dup -8 shift bitor
    281470681808895 bitand dup -16 shift bitor 4294967295 bitand
    ;