Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 2780

Preview (limited to 512 bytes)

"-- http://www.pcg-random.org/posts/bounded-rands.html\n{-# LANGUAGE BangPatterns #-}\n{-# LANGUAGE CPP #-}\nmodule Main where\n\nimport Data.Bits\nimport Data.Bits.Compat\nimport Data.List (unfoldr)\nimport Data.Word (Word32, Word64)\n\nimport qualified System.Random.SplitMix32 as SM\n\n#if defined(__GHCJS__)\n#else\nimport System.Clock (Clock (Monotonic), getTime, toNanoSecs)\nimport Text.Printf (printf)\n#endif\n\nmain :: IO ()\nmain = do\n gen <- SM.newSMGen\n\n -- bench gen (\\g h -> R (0, pred h"

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete