RosettaCodeData/Task/Random-number-generator--device-/Haskell/random-number-generator--device-.hs

#!/usr/bin/env runhaskell

import System.Entropy
import Data.Binary.Get
import qualified Data.ByteString.Lazy as B

main = do
  bytes <- getEntropy 4
  print (runGet getWord32be $ B.fromChunks [bytes])
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`#!/usr/bin/env runhaskell`
tasks a-s 2013-04-10 23:57:08 -07:00
			`import System.Entropy`
			`import Data.Binary.Get`
			`import qualified Data.ByteString.Lazy as B`

			`main = do`
			`bytes <- getEntropy 4`
			`print (runGet getWord32be $ B.fromChunks [bytes])`