Function unfoldEffect

packages/effect/test/utils/unfoldEffect.ts:5–12

(
  s: S,
  f: (s: S) => Effect.Effect<Option.Option<readonly [A, S]>, E, R>
)

import * as Option from "effect/Option"

export const unfoldEffect = <A, S, E, R>(
  s: S,
  f: (s: S) => Effect.Effect<Option.Option<readonly [A, S]>, E, R>
): Effect.Effect<ReadonlyArray<A>, E, R> =>
  Effect.map(
    unfoldEffectLoop(s, f, List.empty()),
    (list) => Array.from(List.reverse(list))
  )

const unfoldEffectLoop = <A, S, E, R>(
  s: S,