@effect-ts/system/_src/Collections/Immutable/Chunk/api/reduceRight.ts

Effect-TS is a zero dependency set of libraries to write highly productive, purely functional TypeScript at scale.

// ets_tracing: off

import type * as Chunk from "../core.js"
import { ArrTypeId, concrete, SingletonTypeId } from "../definition.js"

/**
 * Folds over the elements in this chunk from the right.
 */
export function reduceRight_<A, S>(
  self: Chunk.Chunk<A>,
  s: S,
  f: (a: A, s: S) => S
): S {
  concrete(self)

  switch (self._typeId) {
    case SingletonTypeId: {
      return f(self.a, s)
    }
    case ArrTypeId: {
      const arr = self.arrayLike()
      const len = arr.length
      let s1 = s
      let i = len - 1
      while (i >= 0) {
        s1 = f(arr[i]!, s1)
        i--
      }
      return s1
    }
    default: {
      const iterator = self.reverseArrayLikeIterator()
      let next
      let s1 = s

      while ((next = iterator.next()) && !next.done) {
        const array = next.value
        const len = array.length
        let i = len - 1
        while (i >= 0) {
          const a = array[i]!
          s1 = f(a, s1)
          i--
        }
      }

      return s1
    }
  }
}

/**
 * Folds over the elements in this chunk from the right.
 *
 * @ets_data_first reduceRight_
 */
export function reduceRight<A, S>(
  s: S,
  f: (a: A, s: S) => S
): (self: Chunk.Chunk<A>) => S {
  return (self) => reduceRight_(self, s, f)
}