20 lines
403 B
Haskell
20 lines
403 B
Haskell
module Generators
|
|
where
|
|
|
|
import Numeric(showHex)
|
|
import System.Random(RandomGen,random)
|
|
|
|
generateNum :: RandomGen g => g -> Word -> (Integer, g)
|
|
generateNum g size =
|
|
let (x, g') = random g
|
|
x' = x `mod` (2 ^ size)
|
|
in (x', g')
|
|
|
|
showX :: Integer -> String
|
|
showX x | x < 0 = "-" ++ showX (abs x)
|
|
| otherwise = showHex x ""
|
|
|
|
showB :: Bool -> String
|
|
showB False = "0"
|
|
showB True = "1"
|