OCaml 中的递归 function

Question

我有这部分代码使用这种格式在图中找到下一个节点：

当前节点->（操作员，成本，下一个节点的名称）列表

：

let opPoss =(function
      "A" -> [('h',4,"B");('b',10,"C")]
    | "B" -> [('b',2,"C");('h',4,"D")]
    | "C" -> [('b',6,"F")]
    | "D" -> [('b',2,"C")]

这个找到每个节点的权重：

let  hEtat = (function
    "A" -> 8
  | "B" -> 3
  | "C" -> 2
  | "D" -> 5
  |  _ -> 0 );;

我必须实现一个 function 以这种格式返回每个节点的下一个节点列表：

（节点名称、成本、重量）

，所以我尝试了这个：

let creerLesFils etat g opPoss hEtat=
  let liste = opPoss etat in let rec creer liste g opPoss hEtat= match liste with
        []->[] 
      |(a, b, c)::t->(c, b, hEtat c)::creer t g opPoss hEtat;;

但它不起作用，它向我展示了这一点：

;; 第 4 行，字符 45-47：错误：语法错误

如何正确实现递归？

Answer 1

您的语法错误是您let rec没有跟随in 。

本质上，您定义了一个名为creer的本地 function，但您从不使用该定义。

您可以尝试在代码末尾添加类似这样的内容：

in
creer liste g opPoss hEtat

（这很难回答，因为代码的格式不可读。您可以使用自动缩进工具，或手动缩进。）