Function lessThan

packages/effect/src/internal/redBlackTree.ts:604–631

(
  self: RBT.RedBlackTree<K, V>,
  key: K,
  direction: RBT.RedBlackTree.Direction
)

>(2, (self, key) => lessThan(self, key, Direction.Forward))

const lessThan = <K, V>(
  self: RBT.RedBlackTree<K, V>,
  key: K,
  direction: RBT.RedBlackTree.Direction
): Iterable<[K, V]> => {
  return {
    [Symbol.iterator]: () => {
      const cmp = (self as RedBlackTreeImpl<K, V>)._ord
      let node = (self as RedBlackTreeImpl<K, V>)._root
      const stack = []
      let last_ptr = 0
      while (node !== undefined) {
        const d = cmp(key, node.key)
        stack.push(node)
        if (d > 0) {
          last_ptr = stack.length
        }
        if (d <= 0) {
          node = node.left
        } else {
          node = node.right
        }
      }
      stack.length = last_ptr
      return new RedBlackTreeIterator(self, stack, direction)
    }
  }
}

/** @internal */
export const lessThanEqualBackwards = dual<