jtobin/speedy.hs

## speedy.hs
import Data.Vector.Unboxed as U
import System.Random.MWC

main :: IO ()
main = withSystemRandom . asGenIO $ \gen -> do
  x <- uniformVector gen 10000000 :: IO (U.Vector Double)
  print (U.sum x)

-- jtobin@castor:~/sandbox$ time ./Rand +RTS -s
-- 4999721.338394913
--       80,204,064 bytes allocated in the heap
--            7,816 bytes copied during GC
--           44,384 bytes maximum residency (1 sample(s))
--          727,888 bytes maximum slop
--               78 MB total memory in use (0 MB lost due to fragmentation)
--
--                                      Tot time (elapsed)  Avg pause  Max pause
--   Gen  0         1 colls,     0 par    0.000s   0.003s     0.0027s    0.0027s
--   Gen  1         1 colls,     0 par    0.000s   0.012s     0.0123s    0.0123s
--
--   INIT    time    0.000s  (  0.004s elapsed)
--   MUT     time    0.176s  (  0.230s elapsed)
--   GC      time    0.000s  (  0.015s elapsed)
--   EXIT    time    0.000s  (  0.012s elapsed)
--   Total   time    0.179s  (  0.261s elapsed)
--
--   %GC     time       0.2%  (5.7% elapsed)
--
--   Alloc rate    455,658,307 bytes per MUT second
--
--   Productivity  99.8% of total user, 68.4% of total elapsed
--
--
-- real    0m0.296s <-------- close to C++
-- user    0m0.179s
-- sys     0m0.055s
	import Data.Vector.Unboxed as U
	import System.Random.MWC

	main :: IO ()
	main = withSystemRandom . asGenIO $ \gen -> do
	x <- uniformVector gen 10000000 :: IO (U.Vector Double)
	print (U.sum x)

	-- jtobin@castor:~/sandbox$ time ./Rand +RTS -s
	-- 4999721.338394913
	-- 80,204,064 bytes allocated in the heap
	-- 7,816 bytes copied during GC
	-- 44,384 bytes maximum residency (1 sample(s))
	-- 727,888 bytes maximum slop
	-- 78 MB total memory in use (0 MB lost due to fragmentation)
	--
	-- Tot time (elapsed) Avg pause Max pause
	-- Gen 0 1 colls, 0 par 0.000s 0.003s 0.0027s 0.0027s
	-- Gen 1 1 colls, 0 par 0.000s 0.012s 0.0123s 0.0123s
	--
	-- INIT time 0.000s ( 0.004s elapsed)
	-- MUT time 0.176s ( 0.230s elapsed)
	-- GC time 0.000s ( 0.015s elapsed)
	-- EXIT time 0.000s ( 0.012s elapsed)
	-- Total time 0.179s ( 0.261s elapsed)
	--
	-- %GC time 0.2% (5.7% elapsed)
	--
	-- Alloc rate 455,658,307 bytes per MUT second
	--
	-- Productivity 99.8% of total user, 68.4% of total elapsed
	--
	--
	-- real 0m0.296s <-------- close to C++
	-- user 0m0.179s
	-- sys 0m0.055s