Download raw

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

Size: 324

Preview (limited to 512 bytes)

"module Main (main) where\n\nimport Test.HUnit ((@?=))\n\nimport qualified System.Random.SplitMix32 as SM32\n\nmain :: IO ()\nmain = do\n let g = SM32.mkSMGen 42\n show g @?= \"SMGen 142593372 1604540297\"\n print g\n\n let (w32, g') = SM32.nextWord32 g\n w32 @?= 1296549791\n show g' @?= \"SMGen 1747133669 1604540297\"\n"

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