Haskell 学习笔记-17：when 函数的实现

Haskell 库里有一个函数 when，可以实现 if … then … 的功能，不需要考虑 else 的情况，这样写起程序来很是方便。这里作为练习，我把代码重新写了一下，估计库函数也是这个套路。

when x y = do
    if x then y
    else return ()

main = do
    putStr "Input = " 　 
    s <- getLine 　
    when (s == "good") (putStrLn "!!!GOOD!!!")




--试验一下：
>> main
Input = good
!!!GOOD!!!