issue-#57 - Progress on idiomatic curry - converted methods up to 'sr…

…c/list/scanr1'.
functional-jslib · Aug 9, 2022 · b40862a · b40862a
1 parent 7059ae3
commit b40862a
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 6 deletions.
diff --git a/packages/fjl/src/list/scanl.ts b/packages/fjl/src/list/scanl.ts
@@ -1,4 +1,3 @@
-import {curry} from "../function/curry";
 import {length} from "./length";
 import {Slice} from "../types";
 
@@ -32,4 +31,6 @@ export const
     return out;
   },
 
-  $scanl = curry(scanl);
+  $scanl = <A, B>(fn: ScanlOp<A, B>) =>
+    (zero: B) =>
+      (xs: Slice<A>): B[] => scanl(fn, zero, xs);
diff --git a/packages/fjl/src/list/scanl1.ts b/packages/fjl/src/list/scanl1.ts
@@ -1,4 +1,3 @@
-import {curry} from "../function/curry";
 import {scanl, ScanlOp} from "./scanl";
 import {head} from "./head";
 import {tail} from "./tail";
@@ -17,4 +16,5 @@ export const
    * `scanl1` is a variant of `scanl` that has no starting value argument:
    * `shallowCompare(scanl1(fn, [x1, x2, ...]), [x1, fn(x1, x2), ...]) // true`
    */
-  $scanl1 = curry(scanl1);
+  $scanl1 = <T>(fn: ScanlOp<T, T>) =>
+    (xs: Slice<T>): T[] => scanl1(fn, xs);
diff --git a/packages/fjl/src/list/scanr.ts b/packages/fjl/src/list/scanr.ts
@@ -27,4 +27,6 @@ export const
     return out;
   },
 
-  $scanr = curry(scanr);
+  $scanr = <A, B>(fn: ScanrOp<A, B>) =>
+    (zero: B) =>
+      (xs: Slice<A>): B[] => scanr(fn, zero, xs);
diff --git a/packages/fjl/src/list/scanr1.ts b/packages/fjl/src/list/scanr1.ts
@@ -16,4 +16,5 @@ export const
     return scanr(fn, last(xs), init(xs));
   },
 
-  $scanr1 = curry(scanr1);
+  $scanr1 = <T>(fn: ScanrOp<T, T>) =>
+    (xs: Slice<T>): T[] => scanr1(fn, xs);