我通常如何在ReScript中遍历数组？

问题描述

比方说，我想以Js / Belt标准库函数没有很好支持的方式对数组进行迭代。例如，也许我需要一次检查成对的元素。对于列表，这很容易以递归方式进行：

let rec findDouble = (list) => switch list {
| list{a,b,..._} when a == b => a
| list{_,...rest} => findDouble(list{b,...rest})
| _ => 0
}
list{7,9,10,11,13} |> findDouble |> Js.log  // 10

但是，ReScript似乎不鼓励使用列表，而建议使用数组（请参阅：笨拙的列表语法以及某些标准库函数（如Belt.Map.fromArray）没有列表等效项），因此我不确定是否转换仅使用这种样式的数组是习惯用法-尤其是如果函数产生一个必须先变回数组的列表。

我当然可以使用可变性以传统的命令方式实现该功能：

let findDouble = (arr) => {
  let idx = ref(1)
  let answer = ref(0)

  while (idx.contents < Js.Array.length(arr)) && (answer.contents == 0) {
    if arr[idx.contents] == arr[idx.contents - 1] {
      answer := arr[idx.contents]
    }
    idx := idx.contents + 1
  }
  answer.contents
}
[7,13] |> findDouble |> Js.log  // 10

但这很丑陋，与ReScript的功能骨骼背道而驰。

什么是实现此功能的干净，惯用方式？

解决方法

您仍然可以使用递归，只是增加索引而不是使用列表的结尾：

let findDouble = arr => {
  let rec loop = idx =>
    if idx >= Array.length(arr) {
      0
    } else if arr[idx] == arr[idx - 1] {
      arr[idx]
    } else {
      loop(idx + 1)
    }

  loop(1)
}