@lsby/ts-fp-data 0.0.8 → 0.0.9-beta.1

package/dist/cjs/data/task.cjs

@@ -109,21 +109,42 @@ var TaskDo = class _TaskDo {
   constructor(accTask) {
     this.accTask = accTask;
   }
+  let(name, task) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(
+          (v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
+  }
   bind(name, task) {
     return new _TaskDo(
-      this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: v })))
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false }))
+      )
     );
   }
   exec(task) {
-    return new _TaskDo(this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
-  }
-  effect(task) {
     return new _TaskDo(
-      this.accTask.bind((a) => Task.pure(task(a.env)).bind((v) => Task.pure({ env: a.env, lastValue: v })))
+      this.accTask.bind((a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(() => Task.pure(a)))
     );
   }
   pure(value) {
-    return new _TaskDo(this.accTask.bind((a) => Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v, lock: false }))
+      )
+    );
+  }
+  if(cond, value) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(cond(a.env)).bind(
+          (c) => c ? value(a.env).bind((x) => Task.pure({ env: a.env, lastValue: x, lock: true })) : Task.pure({ env: a.env, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
   }
   getTask() {
     return new Task(async () => {
@@ -139,7 +160,7 @@ var Task = class _Task {
     return new _Task(async () => a);
   }
   static do() {
-    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0 })));
+    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0, lock: false })));
   }
   map(f) {
     return new _Task(async () => f(await this.f()));

package/dist/cjs/data/task.d.cts

@@ -1,10 +1,11 @@
 import { Either } from './either.cjs';
 
 interface TaskDoType<Env extends Record<string, any>, A> {
-    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, X>;
-    exec<X>(task: (env: Env) => Task<X>): TaskDoType<Env, X>;
-    effect<X>(task: (env: Env) => X): TaskDoType<Env, X>;
-    pure<X>(value: X): TaskDoType<Env, X>;
+    let<K extends string, X>(name: K, task: (env: Env) => X): TaskDoType<Env & Record<K, X>, A>;
+    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, A>;
+    exec(task: (env: Env) => void): TaskDoType<Env, A>;
+    pure(value: A): TaskDoType<Env, A>;
+    if(cond: (env: Env) => boolean, value: (env: Env) => Task<A>): TaskDoType<Env, A>;
     getTask(): Task<A>;
 }
 declare class TaskDo<Env extends Record<string, any>, A> implements TaskDoType<Env, A> {
@@ -12,11 +13,13 @@ declare class TaskDo<Env extends Record<string, any>, A> implements TaskDoType<E
     constructor(accTask: Task<{
         env: Env;
         lastValue: A;
+        lock: boolean;
     }>);
-    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, X>;
-    exec<X>(task: (env: Env) => Task<X>): TaskDoType<Env, X>;
-    effect<X>(task: (env: Env) => X): TaskDoType<Env, X>;
-    pure<X>(value: X): TaskDoType<Env, X>;
+    let<K extends string, X>(name: K, task: (env: Env) => X): TaskDoType<Env & Record<K, X>, A>;
+    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, A>;
+    exec(task: (env: Env) => void): TaskDoType<Env, A>;
+    pure(value: A): TaskDoType<Env, A>;
+    if(cond: (env: Env) => boolean, value: (env: Env) => Task<A>): TaskDoType<Env, A>;
     getTask(): Task<A>;
 }
 declare class Task<A> {

package/dist/cjs/func/seq.cjs

@@ -111,21 +111,42 @@ var TaskDo = class _TaskDo {
   constructor(accTask) {
     this.accTask = accTask;
   }
+  let(name, task) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(
+          (v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
+  }
   bind(name, task) {
     return new _TaskDo(
-      this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: v })))
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false }))
+      )
     );
   }
   exec(task) {
-    return new _TaskDo(this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
-  }
-  effect(task) {
     return new _TaskDo(
-      this.accTask.bind((a) => Task.pure(task(a.env)).bind((v) => Task.pure({ env: a.env, lastValue: v })))
+      this.accTask.bind((a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(() => Task.pure(a)))
     );
   }
   pure(value) {
-    return new _TaskDo(this.accTask.bind((a) => Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v, lock: false }))
+      )
+    );
+  }
+  if(cond, value) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(cond(a.env)).bind(
+          (c) => c ? value(a.env).bind((x) => Task.pure({ env: a.env, lastValue: x, lock: true })) : Task.pure({ env: a.env, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
   }
   getTask() {
     return new Task(async () => {
@@ -141,7 +162,7 @@ var Task = class _Task {
     return new _Task(async () => a);
   }
   static do() {
-    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0 })));
+    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0, lock: false })));
   }
   map(f) {
     return new _Task(async () => f(await this.f()));

package/dist/cjs/index.cjs

@@ -119,21 +119,42 @@ var TaskDo = class _TaskDo {
   constructor(accTask) {
     this.accTask = accTask;
   }
+  let(name, task) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(
+          (v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
+  }
   bind(name, task) {
     return new _TaskDo(
-      this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: v })))
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false }))
+      )
     );
   }
   exec(task) {
-    return new _TaskDo(this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
-  }
-  effect(task) {
     return new _TaskDo(
-      this.accTask.bind((a) => Task.pure(task(a.env)).bind((v) => Task.pure({ env: a.env, lastValue: v })))
+      this.accTask.bind((a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(() => Task.pure(a)))
     );
   }
   pure(value) {
-    return new _TaskDo(this.accTask.bind((a) => Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v, lock: false }))
+      )
+    );
+  }
+  if(cond, value) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(cond(a.env)).bind(
+          (c) => c ? value(a.env).bind((x) => Task.pure({ env: a.env, lastValue: x, lock: true })) : Task.pure({ env: a.env, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
   }
   getTask() {
     return new Task(async () => {
@@ -149,7 +170,7 @@ var Task = class _Task {
     return new _Task(async () => a);
   }
   static do() {
-    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0 })));
+    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0, lock: false })));
   }
   map(f) {
     return new _Task(async () => f(await this.f()));

package/dist/esm/{chunk-3DBX3JLQ.js → chunk-KGTFYSGN.js}

@@ -1,6 +1,6 @@
 import {
   Task
-} from "./chunk-XP6AXTYL.js";
+} from "./chunk-XMHK7KBY.js";
 import {
   Left,
   Right

package/dist/esm/chunk-XMHK7KBY.js

@@ -0,0 +1,87 @@
+import {
+  Left,
+  Right
+} from "./chunk-VTI5CRVQ.js";
+
+// src/data/task.ts
+var TaskDo = class _TaskDo {
+  constructor(accTask) {
+    this.accTask = accTask;
+  }
+  let(name, task) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(
+          (v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
+  }
+  bind(name, task) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: a.lastValue, lock: false }))
+      )
+    );
+  }
+  exec(task) {
+    return new _TaskDo(
+      this.accTask.bind((a) => a.lock ? Task.pure(a) : Task.pure(task(a.env)).bind(() => Task.pure(a)))
+    );
+  }
+  pure(value) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v, lock: false }))
+      )
+    );
+  }
+  if(cond, value) {
+    return new _TaskDo(
+      this.accTask.bind(
+        (a) => a.lock ? Task.pure(a) : Task.pure(cond(a.env)).bind(
+          (c) => c ? value(a.env).bind((x) => Task.pure({ env: a.env, lastValue: x, lock: true })) : Task.pure({ env: a.env, lastValue: a.lastValue, lock: false })
+        )
+      )
+    );
+  }
+  getTask() {
+    return new Task(async () => {
+      return (await this.accTask.run()).lastValue;
+    });
+  }
+};
+var Task = class _Task {
+  constructor(f) {
+    this.f = f;
+  }
+  static pure(a) {
+    return new _Task(async () => a);
+  }
+  static do() {
+    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0, lock: false })));
+  }
+  map(f) {
+    return new _Task(async () => f(await this.f()));
+  }
+  bind(f) {
+    return new _Task(async () => f(await this.f()).run());
+  }
+  run() {
+    return this.f();
+  }
+  async tryRun() {
+    try {
+      return new Right(await this.run());
+    } catch (e) {
+      if (e instanceof Error)
+        return new Left(e);
+      return new Left(new Error(String(e)));
+    }
+  }
+};
+
+export {
+  TaskDo,
+  Task
+};

package/dist/esm/data/task.d.ts

@@ -1,10 +1,11 @@
 import { Either } from './either.js';
 
 interface TaskDoType<Env extends Record<string, any>, A> {
-    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, X>;
-    exec<X>(task: (env: Env) => Task<X>): TaskDoType<Env, X>;
-    effect<X>(task: (env: Env) => X): TaskDoType<Env, X>;
-    pure<X>(value: X): TaskDoType<Env, X>;
+    let<K extends string, X>(name: K, task: (env: Env) => X): TaskDoType<Env & Record<K, X>, A>;
+    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, A>;
+    exec(task: (env: Env) => void): TaskDoType<Env, A>;
+    pure(value: A): TaskDoType<Env, A>;
+    if(cond: (env: Env) => boolean, value: (env: Env) => Task<A>): TaskDoType<Env, A>;
     getTask(): Task<A>;
 }
 declare class TaskDo<Env extends Record<string, any>, A> implements TaskDoType<Env, A> {
@@ -12,11 +13,13 @@ declare class TaskDo<Env extends Record<string, any>, A> implements TaskDoType<E
     constructor(accTask: Task<{
         env: Env;
         lastValue: A;
+        lock: boolean;
     }>);
-    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, X>;
-    exec<X>(task: (env: Env) => Task<X>): TaskDoType<Env, X>;
-    effect<X>(task: (env: Env) => X): TaskDoType<Env, X>;
-    pure<X>(value: X): TaskDoType<Env, X>;
+    let<K extends string, X>(name: K, task: (env: Env) => X): TaskDoType<Env & Record<K, X>, A>;
+    bind<K extends string, X>(name: K, task: (env: Env) => Task<X>): TaskDoType<Env & Record<K, X>, A>;
+    exec(task: (env: Env) => void): TaskDoType<Env, A>;
+    pure(value: A): TaskDoType<Env, A>;
+    if(cond: (env: Env) => boolean, value: (env: Env) => Task<A>): TaskDoType<Env, A>;
     getTask(): Task<A>;
 }
 declare class Task<A> {

package/dist/esm/data/task.js

@@ -1,7 +1,7 @@
 import {
   Task,
   TaskDo
-} from "../chunk-XP6AXTYL.js";
+} from "../chunk-XMHK7KBY.js";
 import "../chunk-VTI5CRVQ.js";
 export {
   Task,

package/dist/esm/func/seq.js

@@ -3,8 +3,8 @@ import {
   seqArrayTask,
   seqEitherArray,
   seqEitherTask
-} from "../chunk-3DBX3JLQ.js";
-import "../chunk-XP6AXTYL.js";
+} from "../chunk-KGTFYSGN.js";
+import "../chunk-XMHK7KBY.js";
 import "../chunk-VTI5CRVQ.js";
 export {
   seqArrayEither,

package/dist/esm/index.js

@@ -8,11 +8,11 @@ import {
   seqArrayTask,
   seqEitherArray,
   seqEitherTask
-} from "./chunk-3DBX3JLQ.js";
+} from "./chunk-KGTFYSGN.js";
 import {
   Task,
   TaskDo
-} from "./chunk-XP6AXTYL.js";
+} from "./chunk-XMHK7KBY.js";
 import {
   Either,
   Left,

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@lsby/ts-fp-data",
-  "version": "0.0.8",
+  "version": "0.0.9-beta.1",
   "type": "module",
   "exports": {
     "require": "./dist/cjs/index.cjs",

package/dist/esm/chunk-XP6AXTYL.js

@@ -1,66 +0,0 @@
-import {
-  Left,
-  Right
-} from "./chunk-VTI5CRVQ.js";
-
-// src/data/task.ts
-var TaskDo = class _TaskDo {
-  constructor(accTask) {
-    this.accTask = accTask;
-  }
-  bind(name, task) {
-    return new _TaskDo(
-      this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: { ...a.env, [name]: v }, lastValue: v })))
-    );
-  }
-  exec(task) {
-    return new _TaskDo(this.accTask.bind((a) => task(a.env).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
-  }
-  effect(task) {
-    return new _TaskDo(
-      this.accTask.bind((a) => Task.pure(task(a.env)).bind((v) => Task.pure({ env: a.env, lastValue: v })))
-    );
-  }
-  pure(value) {
-    return new _TaskDo(this.accTask.bind((a) => Task.pure(value).bind((v) => Task.pure({ env: a.env, lastValue: v }))));
-  }
-  getTask() {
-    return new Task(async () => {
-      return (await this.accTask.run()).lastValue;
-    });
-  }
-};
-var Task = class _Task {
-  constructor(f) {
-    this.f = f;
-  }
-  static pure(a) {
-    return new _Task(async () => a);
-  }
-  static do() {
-    return new TaskDo(new _Task(async () => ({ env: {}, lastValue: void 0 })));
-  }
-  map(f) {
-    return new _Task(async () => f(await this.f()));
-  }
-  bind(f) {
-    return new _Task(async () => f(await this.f()).run());
-  }
-  run() {
-    return this.f();
-  }
-  async tryRun() {
-    try {
-      return new Right(await this.run());
-    } catch (e) {
-      if (e instanceof Error)
-        return new Left(e);
-      return new Left(new Error(String(e)));
-    }
-  }
-};
-
-export {
-  TaskDo,
-  Task
-};