[Haskell] 随机数的使用与Enum类型的随机生成

本文链接：https://blog.csdn.net/Mrfive555/article/details/84061172

随机数生成程序

haskell里提供了多种随机数相关的随机数生成程序，可以根据使用情景的不同选择不同的随机数生成程序。可以通过导入import System.Random来调用这些内部的随机数产生库

	自定随机种子	全局随机种子
生成一个	random	randomIO
在范围内生成	randomR	randomRIO
生成随机列表	randoms
范围内随机列表	randomRs

-- 需要自定义随机种子
random :: (Random a, RandomGen g) => g -> (a, g)
randoms :: (Random a, RandomGen g) => g -> [a]
randomR :: (Random a, RandomGen g) => (a, a) -> g -> (a, g)
randomRs :: (Random a, RandomGen g) => (a, a) -> g -> [a]
-- 使用全局随机种子
randomIO :: Random a => IO a
randomRIO :: Random a => (a, a) -> IO a

example:

num <- randomRIO (3,4) :: IO Double

随机种子生成

mkStdGen：用Int构造随机种子
getStdGen：返回系统全局的随机生成器
newStdGen：重置并返回系统全局的随机生成器
split：用一个生成器构造两个新的生成器

mkStdGen :: Int -> StdGen
getStdGen :: IO StdGen
newStdGen :: IO StdGen
split :: (RandomGen g) => g -> (g, g)`

选择随机的自定义类型

有时候我们有这样的需求：自定义了一个Enum类型，里面有几个枚举常数。现在希望从这个枚举类型中随机获得一个元素。比如，在剪刀石头布的游戏中，我们有下面的数据类型：

data Hand = Rock | Scissor | Paper deriving (Enum, Eq)

现在希望在这三个类型里面随机得到一个结果，最简单的方法是生成一个0到1的随机数，[0,1/3)返回石头，[1/3,2/3)返回剪刀，否则返回布。但这种程序的写法是笨拙而缺乏扩展性的。一种优雅的方式是把Hand类型直接声明为Random类型：

instance  Random  Hand  where
  random g =  case randomR (0, 2) g of
    (r, g') -> (toEnum r, g')
  randomR (a, b) g =  case randomR(fromEnum a, fromEnum b) g of
    (r, g') -> (toEnum r, g')

这样子我们可以直接调用下面代码来获得一个随机的手势