假设我想以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 的功能框架背道而驰。
什么是实现此功能的干净、惯用的方法?