fbb9d7e54bc4e122c7a433c348feccbdbcb92df794d32cdf44d18b1d3c1c3b6e

Download raw

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

Size: 441

Preview (limited to 512 bytes)

"module Spec.Run (runsEqual) where\n\nimport Data.Word (Word64)\nimport System.Random.Stateful\n\nrunsEqual :: RandomGen g => g -> IO Bool\nrunsEqual g = do\n let pureResult = runStateGen_ g uniformM :: Word64\n stResult = runSTGen_ g uniformM :: Word64\n ioGenM <- newIOGenM g\n ioResult <- uniformM ioGenM\n atomicGenM <- newAtomicGenM g\n atomicResult <- uniformM atomicGenM\n return $ all (pureResult ==) [stResult, ioResult, atomicResult]\n"

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