hyperloglog 0.4.0.1 → 0.4.0.2

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• hyperloglog.cabal +1/−1
• src/Data/HyperLogLog/Type.hs +2/−2

@@ -1,6 +1,6 @@ name:          hyperloglog category:      Numeric-version:       0.4.0.1+version:       0.4.0.2 license:       BSD3 cabal-version: >= 1.8 license-file:  LICENSE

@@ -194,11 +194,11 @@   m' = fromIntegral (numBuckets n)   numZeros = fromIntegral . V.length . V.filter (== 0) $ bs   res = case raw < smallRange n of-    True -- | numZeros > 0 -> m' * log (m' / numZeros) -- 13.47 bits max error+    True -- numZeros > 0 -> m' * log (m' / numZeros) -- 13.47 bits max error          | numZeros > 0 -> m' / 1 / (log m' - log numZeros) -- 6.47 bits max error          | otherwise -> raw     False | raw <= interRange -> raw-          -- | otherwise -> -1 * lim32 * log (1 - raw / lim32) -- 44 bits max error+          -- otherwise -> -1 * lim32 * log (1 - raw / lim32) -- 44 bits max error           | raw / lim32 < -1.7563532969399233e-6 -> - log (1 - (raw / lim32)) * lim32 -- 5.39 bits max error           | otherwise -> raw + (raw / lim32) * raw