/**
 * @tsplus static List.Aspects sortWith
 * @tsplus pipeable List sortWith
 */
export function sortWith<A>(ord: Ord<A>) {
  return (self: List<A>): List<A> => {
    const len = self.length
    const b = new ListBuffer<A>()
    if (len === 1) {
      b.append(self.unsafeHead!)
    } else if (len > 1) {
      const arr = new Array<[number, A]>(len)
      copyToArrayWithIndex(self, arr)
      arr.sort(([i, x], [j, y]) => {
        const c = ord.compare(x, y)
        return c !== 0 ? c : i < j ? -1 : 1
      })
      for (let i = 0; i < len; i++) {
        b.append(arr[i]![1])
      }
    }
    return b.toList
  }
}

function copyToArrayWithIndex<A>(list: List<A>, arr: Array<[number, A]>): void {
  let these = list
  let i = 0
  while (!these.isNil()) {
    arr[i] = [i, these.head]
    these = these.tail
    i++
  }
}