missing.ns

missing lo

open BinarySearchTree

module List = Belt.List

let rec weave = (list1, list2, prefix, results) =>
  switch (list1, list2) {
  | (list[], _) | (_, list[]) =>
    let everything = List.concatMany([prefix, list1, list2])->List.toArray
    results->Js.Array2.push(everything)->ignore
  | (list[hd1, ...tail1], list[hd2, ...tail2]) =>
    let oldPrefix = prefix
    let newPrefix = oldPrefix->List.add(hd1)
    weave(tail1, tail2, newPrefix, results)
    
    let newPrefix = oldPrefix->List.add(hd2)
    weave(tail1, tail2, newPrefix, results)
    ()
  }

let () = {
  let results = []
  weave(list[1, 2], list[3, 4], [])
  
  Js.log(results)
}