小编use*_*182的帖子

目标是将Nim在Haskell中的游戏编码为学校作业.我是Haskell的新手,在尝试读取输入时会出现奇怪的行为.

目标是读取两个整数.而不是打印第一个消息,然后提示然后继续第二个消息,它只打印两个消息,我无法给出正确的输入.这有什么不对？

type Board = [Int]      -- The board
type Heap  = Int        -- id of heap
type Turn  = (Int, Int) -- heap and number of stars to remove

readInt :: String -> IO Int
readInt msg = do putStr (msg ++ "> ")
                 inp <- getChar
                 let x = ord inp
                 return x

readTurn :: Board -> IO(Turn)
readTurn b = do heap <- readInt "Select heap:"
                amt <- readInt "Select stars:"
                print heap
                print amt
                return(heap, amt)