如何在 ReScript 中一般遍历数组？答案

【问题标题】：How do I generically traverse an array in ReScript?如何在 ReScript 中一般遍历数组？
【发布时间】：2020-09-10 16:58:23
【问题描述】：

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

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

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

什么是实现此功能的干净、惯用的方法？

【问题讨论】：

标签： arrays rescript

【解决方案1】：

你仍然可以使用递归，只是增加一个索引而不是使用列表的尾部：

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)
}

【讨论】：