File: Examples.hs

package info (click to toggle)
haskell-splitmix 0.1.0.5-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 196 kB
  • sloc: haskell: 1,366; ansic: 151; sh: 53; makefile: 9
file content (15 lines) | stat: -rw-r--r-- 324 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
module Main (main) where

import Test.HUnit ((@?=))

import qualified System.Random.SplitMix32 as SM32

main :: IO ()
main = do
    let g = SM32.mkSMGen 42
    show g @?= "SMGen 142593372 1604540297"
    print g

    let (w32, g') = SM32.nextWord32 g
    w32     @?= 1296549791
    show g' @?= "SMGen 1747133669 1604540297"