statistics 0.8.0.3 → 0.8.0.4
raw patch · 4 files changed
+8/−9 lines, 4 filesdep ~basedep ~vectordep ~vector-algorithms
Dependency ranges changed: base, vector, vector-algorithms
Files
- README.markdown +1/−1
- Statistics/Function.hs +3/−4
- Statistics/Sample/Powers.hs +1/−1
- statistics.cabal +3/−3
README.markdown view
@@ -33,7 +33,7 @@ # Get involved! Please report bugs via the-[bitbucket issue tracker](http://bitbucket.org/bos/attoparsec/statistics).+[bitbucket issue tracker](http://bitbucket.org/bos/statistics/issues). Master [Mercurial repository](http://bitbucket.org/bos/statistics):
Statistics/Function.hs view
@@ -24,15 +24,14 @@ import Control.Exception (assert) import Control.Monad.Primitive (PrimMonad)-import Data.Vector.Algorithms.Combinators (apply)-import Data.Vector.Generic (unsafeFreeze)+import Data.Vector.Generic (modify, unsafeFreeze) import qualified Data.Vector.Algorithms.Intro as I import qualified Data.Vector.Generic as G import qualified Data.Vector.Generic.Mutable as M -- | Sort a vector. sort :: (Ord e, G.Vector v e) => v e -> v e-sort = apply I.sort+sort = modify I.sort {-# INLINE sort #-} -- | Partially sort a vector, such that the least /k/ elements will be@@ -41,7 +40,7 @@ Int -- ^ The number /k/ of least elements. -> v e -> v e-partialSort k = apply (\a -> I.partialSort a k)+partialSort k = modify (\a -> I.partialSort a k) {-# INLINE partialSort #-} -- | Return the indices of a vector.
Statistics/Sample/Powers.hs view
@@ -82,7 +82,7 @@ -> Powers powers k | k < 2 = error "Statistics.Sample.powers: too few powers"- | otherwise = fini . G.foldl' go (unsafePerformIO $ MU.newWith l 0)+ | otherwise = fini . G.foldl' go (unsafePerformIO $ MU.replicate l 0) where go ms x = inlinePerformIO $ loop 0 1 where loop !i !xk | i == l = return ms
statistics.cabal view
@@ -1,5 +1,5 @@ name: statistics-version: 0.8.0.3+version: 0.8.0.4 synopsis: A library of statistical types, data, and functions description: This library provides a number of common functions and types useful@@ -63,8 +63,8 @@ mwc-random >= 0.7.0.0, primitive >= 0.3, time,- vector >= 0.6.0.2,- vector-algorithms >= 0.3.2+ vector >= 0.7.0.0,+ vector-algorithms >= 0.4 if impl(ghc >= 6.10) build-depends: base >= 4