Function reduce

packages/effect/src/internal/blockedRequests.ts:102–160

(
  self: RequestBlock.RequestBlock,
  reducer: RequestBlock.RequestBlock.Reducer<Z>
)

 * @internal
 */
export const reduce = <Z>(
  self: RequestBlock.RequestBlock,
  reducer: RequestBlock.RequestBlock.Reducer<Z>
): Z => {
  let input: List.List<RequestBlock.RequestBlock> = List.of(self)
  let output = List.empty<Either.Either<Z, BlockedRequestsCase>>()
  while (List.isCons(input)) {
    const current: RequestBlock.RequestBlock = input.head
    switch (current._tag) {
      case "Empty": {
        output = List.cons(Either.right(reducer.emptyCase()), output)
        input = input.tail
        break
      }
      case "Par": {
        output = List.cons(Either.left({ _tag: "ParCase" }), output)
        input = List.cons(current.left, List.cons(current.right, input.tail))
        break
      }
      case "Seq": {
        output = List.cons(Either.left({ _tag: "SeqCase" }), output)
        input = List.cons(current.left, List.cons(current.right, input.tail))
        break
      }
      case "Single": {
        const result = reducer.singleCase(current.dataSource, current.blockedRequest)
        output = List.cons(Either.right(result), output)
        input = input.tail
        break
      }
    }
  }
  const result = List.reduce(output, List.empty<Z>(), (acc, current) => {
    switch (current._tag) {
      case "Left": {
        const left = List.unsafeHead(acc)
        const right = List.unsafeHead(List.unsafeTail(acc))
        const tail = List.unsafeTail(List.unsafeTail(acc))
        switch (current.left._tag) {
          case "ParCase": {
            return List.cons(reducer.parCase(left, right), tail)
          }
          case "SeqCase": {
            return List.cons(reducer.seqCase(left, right), tail)
          }
        }
      }
      case "Right": {
        return List.cons(current.right, acc)
      }
    }
  })
  if (List.isNil(result)) {
    throw new Error(
      "BUG: BlockedRequests.reduce - please report an issue at https://github.com/Effect-TS/effect/issues"
    )
  }
  return result.head