numHammingDistance :: Bits a => a -> a -> Int
numHammingDistance x y = popCount (x `xor` y)
numHammingDistance :: Bits a => a -> a -> Int
numHammingDistance x y = popCount (x `xor` y)
numHammingDistance x y = popCount (x `xor` y)