Merge branch 'main' into alpha

Author: djcsdy

index.test.ts

@@ -39,6 +39,7 @@ import {
     or,
     partition,
     partitionWhile,
+    prefixMatch,
     prepend,
     product,
     remove,
@@ -169,6 +170,14 @@ test("equal", t => {
     );
 });
 
+test("prefixMatch", t => {
+    t.true(prefixMatch([], []));
+    t.true(prefixMatch([1, 2, 3], []));
+    t.true(prefixMatch([1, 2, 3, 4], [1, 2]));
+    t.false(prefixMatch([1, 3, 4], [1, 2]));
+    t.false(prefixMatch([], [1]));
+});
+
 test("map", t => {
     t.deepEqual(
         map([1, 2, 3], e => e + 1),

index.ts

@@ -254,6 +254,31 @@ export function notEqualFn<T>(
     return a => notEqual(a, b, elementsEqual);
 }
 
+export function prefixMatch<T>(
+    a: ArrayLike<T>,
+    b: ArrayLike<T>,
+    elementsEqual: (a: T, b: T) => boolean = defaultEqual
+): boolean {
+    if (a.length < b.length) {
+        return false;
+    }
+
+    for (let i = 0; i < b.length; ++i) {
+        if (a[i] !== b[i]) {
+            return false;
+        }
+    }
+
+    return true;
+}
+
+export function prefixMatchFn<T>(
+    b: ArrayLike<T>,
+    elementsEqual: (a: T, b: T) => boolean = defaultEqual
+): (a: ArrayLike<T>) => boolean {
+    return a => prefixMatch(a, b, elementsEqual);
+}
+
 function defaultEqual(a: unknown, b: unknown): boolean {
     return a === b;
 }