Accumulate errors in array, keep results in record

array_of_errors.ts

import { pipe } from "@effect-ts/system/Function"

import { makeAssociative } from "@effect-ts/core/Associative"
import * as R from "@effect-ts/core/Collections/Immutable/Dictionary"
import * as E from "@effect-ts/core/Either"

test("example 04", () => {

    const ValidationApplicative = E.getValidationApplicative(
        makeAssociative<Array<string>>((l, r) => [...l, ...r])
    )

    const traverse = R.forEachF(ValidationApplicative)

    const result = pipe(
        { a: 0, b: 7, c: 8 },
        traverse((n) => (n > 3 ? E.left(["bad" + n]) : E.right(n)))
    )

    console.log(result)
})