如何在Ocaml中计算连续重复数

在Ocaml中计算连续重复数，可以通过使用递归函数来实现。以下是一个示例代码：

(* 计算列表中连续重复数的个数 *)
let rec count_consecutive_duplicates lst =
  match lst with
  | [] -> 0
  | [x] -> 0
  | x :: y :: tl ->
    if x = y then
      1 + count_consecutive_duplicates (y :: tl)
    else
      count_consecutive_duplicates (y :: tl)

(* 示例用法 *)
let lst = [1; 2; 2; 3; 3; 3; 4; 4; 4; 4]
let count = count_consecutive_duplicates lst

这段代码中，count_consecutive_duplicates 函数使用模式匹配来处理不同的情况。当列表为空或只有一个元素时，连续重复数的个数为0。对于其他情况，我们比较当前元素和下一个元素是否相等，如果相等，则递归调用函数并将列表缩小为去除当前元素的子列表；如果不相等，则递归调用函数并将列表缩小为去除当前元素和下一个元素的子列表。最终，函数返回连续重复数的个数。

这个算法的时间复杂度为O(n)，其中n是列表的长度。

在Ocaml中，可以使用这个算法来计算任意列表中连续重复数的个数。例如，对于列表[1; 2; 2; 2; 3; 3; 4; 4; 4; 4]，连续重复数的个数为3。

关于Ocaml的更多信息和学习资源，你可以参考腾讯云的Ocaml产品介绍页面：Ocaml产品介绍。