complexity 0.1.1 → 0.1.2

raw patch · 2 files changed

+32/−2 lines, 2 files

Files

• Test/Complexity/Misc.hs +29/−0
• complexity.cabal +3/−2

@@ -0,0 +1,29 @@+{-# OPTIONS_HADDOCK hide #-}++module Test.Complexity.Misc ( (>>=|)+                            , (>>|)+                            , strictReplicateM_+                            , diff+                            , picoToMilli+                            ) where++import Control.Parallel.Strategies (NFData, rnf, ($|))++-- |Very strict monadic bind+(>>=|) :: (Monad m, NFData a) => m a -> (a -> m b) -> m b+m >>=| f = m >>= f $| rnf++(>>|) :: (Monad m, NFData a) => m a -> m b -> m b+m1 >>| m2 = m1 >>=| const m2++strictReplicateM_ :: NFData a => Int -> IO a  -> IO ()+strictReplicateM_ n a = go n+    where go 0 = return ()+          go n = a >>| go (n - 1)++-- |Difference+diff :: Num a => a -> a -> a+diff x y = abs $ x - y++picoToMilli :: Integer -> Double+picoToMilli p = (fromInteger p) / 1e9

@@ -1,5 +1,5 @@ name:          complexity-version:       0.1.1+version:       0.1.2 cabal-version: >= 1.6 build-type:    Simple stability:     experimental@@ -31,8 +31,9 @@                    , Test.Complexity.Chart                    , Test.Complexity.Pretty                    , Test.Complexity.Utils+  other-modules: Test.Complexity.Misc  -- executable example --   GHC-Options: -O2 -Wall -fno-warn-name-shadowing---   build-depends: mersenne-random, containers+--   build-depends: containers --   main-is: example.hs