是否可以在 Haskell 中编写嵌套条件语句？

Question

我仍在努力学习 Haskell 的语法，因为它不同于我以前见过的任何其他编程语言。在大多数命令式编程语言中，可以像这样创建嵌套条件语句：

function thing1(x){
    if(x > 2){
       if(x < 5){
           return 3;
       }
       else if(x < 10){
           return 10;
       }
       else if(x >= 10){
           return 6;
       }
    }
    else{
        return 4;
    }

}

但是，经过几次尝试，我仍然没有弄清楚 Haskell 中的等效语法：我尝试在 Haskell 中创建等效函数，但出现语法错误：prog.hs:10:1: parse error on input main':

thing1 x =
    if x > 2 then
        if x < 5 then
            3
        else if x < 10 then
            10
        else if(x >= 10)
            6
    else
        4

main = do
    putStr(show(thing1 6))

我不确定这里的语法有什么问题：是否可以像在其他语言中一样在 Haskell 中创建嵌套条件语句？

Answer 1

正如几个人所建议的，您可以使用模式保护更轻松地做到这一点：

thing1 x
  | x <=  2 = 4
  | x <   5 = 3
  | x <  10 = 10
  | x >= 10 = ???

main = putStr (show (thing1 6))

这不是更整洁吗？准确计算每种情况下返回的内容不是容易得多吗？

更新：在我忘记之前，一个常见的习惯是这样做：

thing1 x
  | x <=  2   = 4
  | x <   5   = 3
  | x <  10   = 10
  | otherwise = 6

这让不经意的观察者更清楚，实际上所有案例都已涵盖。

Answer 2

你在if(x >= 10) 之后忘记了then，你还需要一个else 分支。但由于if(x >= 10) 已经是if x < 10 的else 分支，您可以删除if(x >= 10) 或将其添加到评论中：

thing1 x =
if x > 2 then
    if x < 5 then
        3
    else if x < 10 then
        10
    else
        6
else
    4

Answer 3

您在 X > 2 部分中没有不完整（未回答）的分支吗？

 if x < 5 then
    3
 else if x < 10 then
    10
 // else, what answer here?

Haskell 中的else 是强制性的。

见：http://en.wikibooks.org/wiki/Haskell/Control_structures