如何在 Haskell 中有效地重复使用函数 'loop'

Question

我有一个简短的交互对话框，其中计算机要求输入一个数字，如果它小于 77，它表示它太小并重试。

我手头的问题可能很简单，但由于我比较新，所以我似乎无法解决它，也无法在网上找到任何相关问题。


import Text.Read

myread :: IO Int
myread  = do putStr "Please enter a number: "             
             x <- readLn             
             return x

isItLarge :: IO()
isItLarge = do
              result <- myread;
              if result < 77 then putStrLn "Tiny, try again!";
                                  myread
                             else putStrLn "Massive!";

按照我的逻辑，调用 myread 应该将其恢复到顶部并允许您继续直到达到 n > 77。任何帮助将不胜感激:)

为各位大侠干杯，我已经搞定了。从最初因不取出 then putStrLn "Tiny, try again!" 并用下面的内容替换方块而苦苦挣扎，我现在明白了

if result < 77 then do putStrLn "Tiny, try again!";
                                   isItLarge
                           else putStrLn "Massive!";

Answer 1

对于您问题中的特定程序，最简单的方法是将对 myread 的第二次调用替换为对 isItLarge.

的递归调用

如何在 Haskell 中有效地重复使用函数 'loop'

How to re-use a function to effectively 'loop' in Haskell

haskell

function

do-loops