some benchmarks

Author: functora

pub/functora/functora.cabal

@@ -546,3 +546,14 @@ test-suite functora-test
       , tags
       , uri
       , web
+
+benchmark functora-bench
+  import:         pkg, exe
+  type:           exitcode-stdio-1.0
+  main-is:        Main.hs
+  hs-source-dirs: src/bench
+  build-depends:
+    , base
+    , criterion
+    , functora
+    , QuickCheck

pub/functora/src/bench/Main.hs

@@ -0,0 +1,21 @@
+import Criterion.Main
+import Functora.Prelude
+import Test.QuickCheck hiding (Fixed)
+import Test.QuickCheck.Gen (unGen)
+import Test.QuickCheck.Random (newQCGen)
+
+mkSamples :: Int -> IO [Fix]
+mkSamples n = do
+  gen <- newQCGen
+  pure . fmap Fix $ unGen (vectorOf n arbitrary) gen n
+
+main :: IO ()
+main = do
+  samples <- mkSamples 1000000
+  defaultMain
+    [ bgroup
+        "Fix -> Double"
+        [ bench "via Rational" $
+            whnf (map $ from @Fix @Double) samples
+        ]
+    ]

pub/functora/src/prelude/Functora/Prelude.hs

@@ -209,6 +209,7 @@ import Data.Fixed as X
     Pico,
     showFixed,
   )
+import qualified Data.Fixed
 import Data.Foldable1 as X (Foldable1, fold1, foldMap1)
 import Data.Functor.Contravariant as X (contramap)
 import Data.Generics as X (Data)