spread-bits ( m -- n )

Vocabulary

geohash.private

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: geohash.private

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