Function incRight

packages/effect/test/Effect/stack-safety.test.ts:77–82

(n: number, ref: Ref.Ref<number>)

        return pipe(incLeft(n - 1, ref), Effect.zipLeft(Ref.update(ref, (n) => n + 1)))
      }
      const incRight = (n: number, ref: Ref.Ref<number>): Effect.Effect<number> => {
        if (n <= 0) {
          return Ref.get(ref)
        }
        return pipe(Ref.update(ref, (n) => n + 1), Effect.zipRight(incRight(n - 1, ref)))
      }
      const left = pipe(Ref.make(0), Effect.flatMap((ref) => incLeft(100, ref)), Effect.map((n) => n === 0))
      const right = pipe(Ref.make(0), Effect.flatMap((ref) => incRight(1000, ref)), Effect.map((n) => n === 1000))
      const result = yield* pipe(left, Effect.zipWith(right, (a, b) => a && b))