Haskell入門その3

module Main

  where

import IO

import Random

main = do

  hSetBuffering stdin LineBuffering

  num <- randomRIO (1::Int, 100)

  putStrLn "I'm thinking of a number between 1 and 100"

  doGuessing num

doGuessing num = do

  putStrLn "Enter your guess:"

  guess <- getLine

  let guessNum = read guess

  if guessNum < num

    then do putStrLn "Too low!"

            doGuessing num

    else if read guess > num

    then do putStrLn "Too high!"

            doGuessing num

    else do putStrLn "You Win!"

    

これをコンパイルしてみた

I:\haskell>ghc --make test011.hs -o test011.exe

なんじゃ、このバカでかいファイルは！？