Haskell 7

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