从第二个列表中删除出现在一个数组中的字符串(如果它们存在于OCaml/ReasonML中

function removeStringsFromArray(array, list) {
  for (let i = 0; i < list.length; i++) {
    if (array.includes(list[i])) {
      list.splice(i, 1);
      i--; // 由于删除了一个元素，需要将索引减1
    }
  }
  return list;
}

// 示例用法
const array = ["apple", "banana", "orange"];
const list = ["apple", "grape", "banana", "kiwi"];

const result = removeStringsFromArray(array, list);
console.log(result); // 输出 ["grape", "kiwi"]