recursion - 使用递归时 Ocaml 错误未绑定(bind)值

Question

我的代码非常基础，因为我是 ocaml 的新手 我正在尝试递归调用一个函数，但我在函数名称上收到未绑定(bind)值错误消息

let count_help x a lst = match lst with 
    [] -> a
    | (s,i)::t -> if s = x then count_help x a+1 t else count_help x a t
;;

let count_assoc lst x =
    count_help x 0 lst
;;

错误是count_help里面调用count_help那一行的Unbound value count_help

这段代码只是假设要计算给定字符 x 出现关联的次数

Answer 1

你要说

let rec count_help ...

允许在其定义中递归使用名称 count_help。