From 440dd38f24d1df150fb5b4c7965bb6e792c929fe Mon Sep 17 00:00:00 2001 From: Ray Hogenson Date: Sat, 7 Sep 2019 16:36:01 -0700 Subject: Write a little guy This program is in a weird state right now, but I'm checking it in to git so that I can back it up, since I want to reinstall again. --- RandomState.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 RandomState.hs (limited to 'RandomState.hs') diff --git a/RandomState.hs b/RandomState.hs new file mode 100644 index 0000000..9466b49 --- /dev/null +++ b/RandomState.hs @@ -0,0 +1,14 @@ +module RandomState (splitG, splits) where + +import qualified Control.Monad.State as State +import qualified System.Random as Random +import Data.List (unfoldr) + +splitG :: Random.RandomGen g => State.State g g +splitG = do g <- State.get + let (g1, g2) = Random.split g + State.put g1 + return g2 + +splits :: Random.RandomGen g => State.State g [g] +splits = unfoldr (Just . Random.split) <$> splitG -- cgit v1.3.1