pub fn BitsEntropy(population: &[u32], size: usize) -> floatX