Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
import System.Random
import Control.Monad(when)
main = do
gen <- getStdGen
askForNumber gen
askForNumber :: StdGen -> IO ()
askForNumber gen = do
let (randNumber, newGen) = randomR (1,10) gen :: (Int, StdGen)
putStrLn "Which number in the range from 1 to 10 am I thinking of? "
numberString <- getLine
when (not $ null numberString) $ do
let number = read numberString
if randNumber == number
then putStrLn "You are correct!"
else putStrLn $ "Sorry, it was " ++ show randNumber
-- 乱数ジェネレータを更新しながら無限に繰り返す
askForNumber newGen
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment