OCaml“；否则"；语法错误

我是第一次学习OCaml，我遇到了一个非常模糊的“语法错误”。 定义函数

generateboxes

时，如下所示：

let rec generateboxes a b = 
    if a = (add1 b) then (force_newline ()); (print_sting "Done!")
    else if [1] = (Array.get finalarray a) then (populatebox
    (numbertoposition a) a); (generateboxes (add1 a) b)
    else (generateboxes (add1 a) b);;

编译器给出错误消息：“Syntax error”，它指向第一个

else

。我的代码在输出这样的消息时是否有明显的错误？（我意识到代码脱离了上下文，但如果是语法错误，那就不重要了）

如果在

then

或

else

子句中有多条语句，则需要将它们放在括号内。 或者，您可以将

开始。。。在它们周围结束

：

let rec generateboxes a b = 
    if a = add1 b
    then begin
      force_newline ();
      print_sting "Done!" end
    else if [1] = Array.get finalarray a
    then begin
      populatebox (numbertoposition a) a;
      generateboxes (add1 a) b end
    else generateboxes (add1 a) b;;

---

（请注意，为了使代码更清晰，我还删除了一些不必要的括号。）

非常感谢，我以前从未使用过begin..end表达式，所以我花了很多时间才弄清楚！我倾向于使用括号（与在C或Java中使用花括号的方式相同），因为它们更轻，但这是一个品味问题。。。然后（\n…\n）否则…我建议您每行最多放一个“东西”，并使用执行自动缩进的文本编辑器。带有caml模式、tuareg模式或typerex的Emacs非常适合这样做。只需按tab键一次，即可正确缩进当前行。这会立即解释您的语法错误。

let rec generateboxes a b = 
    if a = add1 b
    then begin
      force_newline ();
      print_sting "Done!" end
    else if [1] = Array.get finalarray a
    then begin
      populatebox (numbertoposition a) a;
      generateboxes (add1 a) b end
    else generateboxes (add1 a) b;;