Как получить семя, используемое RNG Haskell?

Question

Я использую следующий код Haskell, чтобы написать файл в один миллион псевдослучайных бит:

import System.Random 
rbits= do 
    g <- getStdGen 
    writeFile "haskellbits.txt" (take 1000000 (randomRs ('0', '1') g)) 

Однако, я также заинтересован в написании семян используются для получения последовательности. Как я могу его вывести?

Answer 1

import System.Random 
outputSeed = do 
    g <- getStdGen 
    print g 

Это напечатает семя в виде двух чисел (я просто попробовал и выход 1010512508 1)

Вы также можете использовать read, чтобы превратить строку обратно в случайное семя. Если исходная строка находится в этом формате, она вернет одно и то же семя. Но если вы используете какую-то другую строку, она будет делать что-то еще для генерации семени.

Prelude System.Random> read "111 112" :: StdGen 
111 112 
Prelude System.Random> read "blabla" :: StdGen 
37214 1