feat(std): updateFirst for Array

src/std/Array.ts

@@ -0,0 +1,19 @@
+export * from "fp-ts/Array";
+
+/**
+ * Update the first element in an array that satisfies a predicate
+ * @param predicate - The predicate to satisfy
+ * @param update - The update function
+ */
+export const updateFirst =
+    <A>(predicate: (a: A) => boolean, update: (a: A) => A) =>
+    (as: A[]): A[] => {
+        return as.reduce((acc, a) => {
+            if (predicate(a)) {
+                acc.push(update(a));
+                return acc;
+            }
+            acc.push(a);
+            return acc;
+        }, [] as A[]);
+    };

src/std/index.ts

@@ -1,14 +1,3 @@
-import {
-    compact,
-    filter,
-    filterMap,
-    findFirst,
-    findFirstMap,
-    flatten,
-    map as mapArr,
-    partition,
-    partitionMap,
-} from "fp-ts/Array";
 import {
     Either,
     ap,
@@ -40,17 +29,7 @@ export type { NonEmptyArray } from "fp-ts/NonEmptyArray";
 export const flow = f;
 export const pipe = p;
 export const absurd = _absurd;
-export const A = {
-    partitionMap,
-    partition,
-    compact,
-    findFirst,
-    findFirstMap,
-    map: mapArr,
-    filter,
-    filterMap,
-    flatten,
-};
+export * as A from "./Array";
 /**
  * Non empty array
  */