Function unfoldEffectLoop

packages/effect/test/utils/unfoldEffect.ts:14–25

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

  )

const unfoldEffectLoop = <A, S, E, R>(
  s: S,
  f: (s: S) => Effect.Effect<Option.Option<readonly [A, S]>, E, R>,
  acc: List.List<A>
): Effect.Effect<List.List<A>, E, R> =>
  Effect.flatMap(f(s), (option) => {
    if (Option.isSome(option)) {
      return unfoldEffectLoop(option.value[1], f, List.prepend(acc, option.value[0]))
    } else {
      return Effect.succeed(acc)
    }
  })