@fncts/io 0.0.34 → 0.0.36

package/_src/collection/immutable/Conc/takeWhileIO.ts

@@ -1,34 +1,25 @@
-import { concrete } from "@fncts/base/collection/immutable/Conc";
-
 /**
  * @tsplus pipeable fncts.Conc takeWhileIO
  */
 export function takeWhileIO<A, R, E>(p: (a: A) => IO<R, E, boolean>, __tsplusTrace?: string) {
-  return (as: Conc<A>): IO<R, E, Conc<A>> => {
-    return IO.defer(() => {
-      concrete(as);
-      let taking: IO<R, E, boolean> = IO.succeedNow(true);
-      const out                     = Conc.builder<A>();
-      const iterator                = as.arrayIterator();
-      let result: IteratorResult<ArrayLike<A>>;
-      while (!(result = iterator.next()).done) {
-        const array = result.value;
-        for (let i = 0; i < array.length; i++) {
-          const j = i;
-          taking  = taking.flatMap((b) => {
-            const a = array[j]!;
-            return (b ? p(a) : IO.succeedNow(false)).map((b1) => {
-              if (b1) {
-                out.append(a);
-                return true;
-              } else {
-                return false;
-              }
-            });
-          });
-        }
-      }
-      return taking.as(out.result());
-    });
+  return (self: Conc<A>): IO<R, E, Conc<A>> => {
+    return IO.defer(takeWhileIOLoop(self, self[Symbol.iterator](), p, 0));
   };
 }
+
+function takeWhileIOLoop<A, R, E>(
+  self: Conc<A>,
+  iterator: Iterator<A>,
+  p: (a: A) => IO<R, E, boolean>,
+  index: number,
+  __tsplusTrace?: string,
+): IO<R, E, Conc<A>> {
+  let result: IteratorResult<A>;
+  if (!(result = iterator.next()).done) {
+    return p(result.value).flatMap((b) =>
+      b ? takeWhileIOLoop(self, iterator, p, index + 1) : IO.succeed(self.take(index)),
+    );
+  } else {
+    return IO.succeed(Conc.empty());
+  }
+}

package/collection/immutable/Conc/filterIO.d.ts

@@ -1,5 +1,5 @@
 import { IO } from "@fncts/io/IO/definition";
-import { Conc, ConcBuilder } from "@fncts/base/collection/immutable/Conc";
+import { Conc } from "@fncts/base/collection/immutable/Conc";
 /**
  * @tsplus pipeable fncts.Conc filterIO
  * @tsplus location "@fncts/io/collection/immutable/Conc/filterIO"

package/collection/immutable/Conc/mapIO.d.ts

@@ -4,4 +4,4 @@ import { Conc } from "@fncts/base/collection/immutable/Conc";
  * @tsplus pipeable fncts.Conc mapIO
  * @tsplus location "@fncts/io/collection/immutable/Conc/mapIO"
  */
-export declare function mapIO<A, R, E, B>(f: (a: A) => IO<R, E, B>, __tsplusTrace?: string): (as: Conc<A>) => IO<R, E, Conc<B>>;
+export declare function mapIO<A, R, E, B>(f: (a: A) => IO<R, E, B>, __tsplusTrace?: string): (self: Conc<A>) => IO<R, E, Conc<B>>;

package/collection/immutable/Conc/takeWhileIO.d.ts

@@ -4,4 +4,4 @@ import { Conc } from "@fncts/base/collection/immutable/Conc";
  * @tsplus pipeable fncts.Conc takeWhileIO
  * @tsplus location "@fncts/io/collection/immutable/Conc/takeWhileIO"
  */
-export declare function takeWhileIO<A, R, E>(p: (a: A) => IO<R, E, boolean>, __tsplusTrace?: string): (as: Conc<A>) => IO<R, E, Conc<A>>;
+export declare function takeWhileIO<A, R, E>(p: (a: A) => IO<R, E, boolean>, __tsplusTrace?: string): (self: Conc<A>) => IO<R, E, Conc<A>>;

package/package.json

@@ -1,8 +1,8 @@
 {
   "name": "@fncts/io",
-  "version": "0.0.34",
+  "version": "0.0.36",
   "dependencies": {
-    "@fncts/base": "0.0.29",
+    "@fncts/base": "0.0.30",
     "@fncts/transformers": "0.0.6",
     "@fncts/typelevel": "0.0.15"
   },