e6db707fa630cd8102ebd77aba81c59e6f4465d5f6201be976217efd06b91ff1

Download raw

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

Size: 2033

Preview (limited to 512 bytes)

"{-# LANGUAGE CPP #-}\nmodule Main (main) where\n\nimport System.Environment (getArgs)\nimport Data.List (foldl')\nimport Data.Word (Word32)\n\nimport qualified System.Random as R\nimport qualified System.Random.SplitMix as SM\nimport qualified System.Random.SplitMix32 as SM32\n\nnewGen :: a -> (a -> g) -> IO g -> IO g\n#if 0\nnewGen _ _ new = new\n#else\nnewGen seed mk _ = return (mk seed)\n#endif\n\nmain :: IO ()\nmain = do\n putStrLn \"Summing randoms...\"\n getArgs >>= \\args -> case args of\n \"splitmix\" : _ -> ne"

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