import System.Random
–random :: StdGen -> (a,StdGen)
– 随机种子 下一个随机种子
–配上函数mkStdGen : Int -> StdGen
–random(mkStdGen 1) ,random(mkStdGen 2)
–写一个得到随机数的函数
–函数getStdGen :: IO StdGen
–猜数
import Data.Char
import System.Random
guess :: Int -> IO ()
guess answer = do
putStrLn “guess between 0-100”
n <- getLine
let m = read n :: Int
if (m==answer)
then putStrLn “Good”
else
if (m