@fable-org/fable-library-js 2.10.0 → 2.12.0

package/List.js

@@ -1,14 +1,15 @@
-import { isArrayLike, Exception, defaultOf, toIterator, compare, structuralHash, equals, disposeSafe, getEnumerator } from "./Util.js";
-import { Record, toString } from "./Types.js";
-import { defaultArg, some, value as value_1 } from "./Option.js";
-import { class_type, record_type, option_type } from "./Reflection.js";
-import { SR_inputSequenceTooLong, SR_inputSequenceEmpty, SR_inputMustBeNonNegative, SR_notEnoughElements, SR_differentLengths, SR_keyNotFoundAlt, SR_indexOutOfBounds, SR_inputWasEmpty } from "./Global.js";
+import { isArrayLike, defaultOf, toIterator, compare, structuralHash, equals, disposeSafe, getEnumerator } from "./Util.js";
+import { toString } from "./Types.js";
+import { defaultArg, value as value_1, some } from "./Option.js";
+import { class_type } from "./Reflection.js";
+import { Operators_InvalidArg, Operators_InvalidOp } from "./FSharp.Core.js";
+import { SR_inputSequenceTooLong, SR_notEnoughElements, SR_inputSequenceEmpty, SR_inputMustBeNonNegative, SR_keyNotFoundAlt, SR_indexOutOfBounds, SR_inputWasEmpty } from "./Global.js";
 import { KeyNotFoundException_$ctor_Z721C83C5 } from "./System.Collections.Generic.js";
 import { randomSampleBy as randomSampleBy_1, randomChoicesBy as randomChoicesBy_1, randomChoiceBy as randomChoiceBy_1, randomShuffleInPlaceBy, transpose as transpose_1, splitInto as splitInto_1, windowed as windowed_1, pairwise as pairwise_1, chunkBySize as chunkBySize_1, map as map_1, permute as permute_1, tryFindIndexBack as tryFindIndexBack_1, tryFindBack as tryFindBack_1, scanBack as scanBack_1, item as item_1, foldBack2 as foldBack2_1, foldBack as foldBack_1, setItem, fill } from "./Array.js";
+import { ArgumentOutOfRangeException_$ctor_Z384F8060 } from "./System.js";
 import { nonSeeded } from "./Random.js";
-export class FSharpList extends Record {
+export class FSharpList {
     constructor(head, tail) {
-        super();
         this.head = head;
         this.tail = tail;
     }
@@ -44,8 +45,8 @@ export class FSharpList extends Record {
                     const matchValue_1 = ys_1.tail;
                     if (matchValue != null) {
                         if (matchValue_1 != null) {
-                            const xt = value_1(matchValue);
-                            const yt = value_1(matchValue_1);
+                            const xt = matchValue;
+                            const yt = matchValue_1;
                             if (equals(xs_1.head, ys_1.head)) {
                                 xs_1_mut = xt;
                                 ys_1_mut = yt;
@@ -81,7 +82,7 @@ export class FSharpList extends Record {
                 const i = i_mut, h = h_mut, xs_1 = xs_1_mut;
                 const matchValue = xs_1.tail;
                 if (matchValue != null) {
-                    const t = value_1(matchValue);
+                    const t = matchValue;
                     if (i > 18) {
                         return h | 0;
                     }
@@ -115,8 +116,8 @@ export class FSharpList extends Record {
                     const matchValue_1 = ys_1.tail;
                     if (matchValue != null) {
                         if (matchValue_1 != null) {
-                            const xt = value_1(matchValue);
-                            const yt = value_1(matchValue_1);
+                            const xt = matchValue;
+                            const yt = matchValue_1;
                             const c = compare(xs_1.head, ys_1.head) | 0;
                             if (c === 0) {
                                 xs_1_mut = xt;
@@ -159,7 +160,7 @@ export class FSharpList extends Record {
     }
 }
 export function FSharpList_$reflection(gen0) {
-    return record_type("ListModule.FSharpList", [gen0], FSharpList, () => [["head", gen0], ["tail", option_type(FSharpList_$reflection(gen0))]]);
+    return class_type("ListModule.FSharpList", [gen0], FSharpList);
 }
 export class ListEnumerator$1 {
     constructor(xs) {
@@ -179,7 +180,7 @@ export class ListEnumerator$1 {
         const _ = this;
         const matchValue = _.it.tail;
         if (matchValue != null) {
-            const t = value_1(matchValue);
+            const t = matchValue;
             _.current = _.it.head;
             _.it = t;
             return true;
@@ -202,11 +203,8 @@ export function ListEnumerator$1_$reflection(gen0) {
 export function ListEnumerator$1_$ctor_3002E699(xs) {
     return new ListEnumerator$1(xs);
 }
-export function FSharpList_get_Empty() {
-    return new FSharpList(defaultOf(), undefined);
-}
-export function FSharpList_Cons_305B8EAC(x, xs) {
-    return new FSharpList(x, xs);
+export function FSharpList_$ctor_Z23DD7291(head_1, tail_1) {
+    return new FSharpList(head_1, tail_1);
 }
 export function FSharpList__get_IsEmpty(xs) {
     return xs.tail == null;
@@ -218,7 +216,7 @@ export function FSharpList__get_Length(xs) {
             const matchValue = xs_1.tail;
             if (matchValue != null) {
                 i_mut = (i + 1);
-                xs_1_mut = value_1(matchValue);
+                xs_1_mut = matchValue;
                 continue loop;
             }
             else {
@@ -235,16 +233,16 @@ export function FSharpList__get_Head(xs) {
         return xs.head;
     }
     else {
-        throw new Exception(SR_inputWasEmpty + " (Parameter \'list\')");
+        throw Operators_InvalidOp(SR_inputWasEmpty);
     }
 }
 export function FSharpList__get_Tail(xs) {
     const matchValue = xs.tail;
     if (matchValue != null) {
-        return value_1(matchValue);
+        return matchValue;
     }
     else {
-        throw new Exception(SR_inputWasEmpty + " (Parameter \'list\')");
+        throw Operators_InvalidOp(SR_inputWasEmpty);
     }
 }
 export function FSharpList__get_Item_Z524259A4(xs, index) {
@@ -253,7 +251,7 @@ export function FSharpList__get_Item_Z524259A4(xs, index) {
             const i = i_mut, xs_1 = xs_1_mut;
             const matchValue = xs_1.tail;
             if (matchValue != null) {
-                const t = value_1(matchValue);
+                const t = matchValue;
                 if (i === index) {
                     return xs_1.head;
                 }
@@ -264,24 +262,28 @@ export function FSharpList__get_Item_Z524259A4(xs, index) {
                 }
             }
             else {
-                throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+                throw Operators_InvalidArg("index", SR_indexOutOfBounds);
             }
             break;
         }
     };
     return loop(0, xs);
 }
+const emptyNode = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+export function empty() {
+    return emptyNode;
+}
 export function indexNotFound() {
     throw KeyNotFoundException_$ctor_Z721C83C5(SR_keyNotFoundAlt);
 }
-export function empty() {
-    return FSharpList_get_Empty();
+function differentLengths(paramName) {
+    throw Operators_InvalidArg(paramName, "The lists had different lengths.");
 }
 export function cons(x, xs) {
-    return FSharpList_Cons_305B8EAC(x, xs);
+    return FSharpList_$ctor_Z23DD7291(x, xs);
 }
 export function singleton(x) {
-    return FSharpList_Cons_305B8EAC(x, FSharpList_get_Empty());
+    return FSharpList_$ctor_Z23DD7291(x, empty());
 }
 export function isEmpty(xs) {
     return FSharpList__get_IsEmpty(xs);
@@ -290,7 +292,13 @@ export function length(xs) {
     return FSharpList__get_Length(xs) | 0;
 }
 export function head(xs) {
-    return FSharpList__get_Head(xs);
+    const matchValue = xs.tail;
+    if (matchValue != null) {
+        return xs.head;
+    }
+    else {
+        throw Operators_InvalidArg("list", SR_inputWasEmpty);
+    }
 }
 export function tryHead(xs) {
     if (FSharpList__get_IsEmpty(xs)) {
@@ -301,7 +309,13 @@ export function tryHead(xs) {
     }
 }
 export function tail(xs) {
-    return FSharpList__get_Tail(xs);
+    const matchValue = xs.tail;
+    if (matchValue != null) {
+        return matchValue;
+    }
+    else {
+        throw Operators_InvalidArg("list", SR_inputWasEmpty);
+    }
 }
 export function tryLast(xs_mut) {
     tryLast: while (true) {
@@ -325,7 +339,7 @@ export function tryLast(xs_mut) {
 export function last(xs) {
     const matchValue = tryLast(xs);
     if (matchValue == null) {
-        throw new Exception(SR_inputWasEmpty);
+        throw Operators_InvalidArg("list", SR_inputWasEmpty);
     }
     else {
         return value_1(matchValue);
@@ -392,7 +406,7 @@ export function fold(folder, state, xs) {
     return acc;
 }
 export function reverse(xs) {
-    return fold((acc, x) => FSharpList_Cons_305B8EAC(x, acc), FSharpList_get_Empty(), xs);
+    return fold((acc, x) => FSharpList_$ctor_Z23DD7291(x, acc), empty(), xs);
 }
 export function foldBack(folder, xs, state) {
     return foldBack_1(folder, toArray(xs), state);
@@ -424,10 +438,21 @@ export function fold2(folder, state, xs, ys) {
         xs_1 = FSharpList__get_Tail(xs_1);
         ys_1 = FSharpList__get_Tail(ys_1);
     }
+    if (!FSharpList__get_IsEmpty(xs_1)) {
+        differentLengths("list2");
+    }
+    else if (!FSharpList__get_IsEmpty(ys_1)) {
+        differentLengths("list1");
+    }
     return acc;
 }
 export function foldBack2(folder, xs, ys, state) {
-    return foldBack2_1(folder, toArray(xs), toArray(ys), state);
+    const xs_1 = toArray(xs);
+    const ys_1 = toArray(ys);
+    if (xs_1.length !== ys_1.length) {
+        differentLengths((xs_1.length === 0) ? "list1" : ((ys_1.length === 0) ? "list2" : "list1, list2"));
+    }
+    return foldBack2_1(folder, xs_1, ys_1, state);
 }
 export function unfold(generator, state) {
     const loop = (acc_mut, node_mut) => {
@@ -436,8 +461,8 @@ export function unfold(generator, state) {
             let t = undefined;
             const matchValue = generator(acc);
             if (matchValue != null) {
-                acc_mut = value_1(matchValue)[1];
-                node_mut = ((t = (new FSharpList(value_1(matchValue)[0], undefined)), (node.tail = t, t)));
+                acc_mut = matchValue[1];
+                node_mut = ((t = FSharpList_$ctor_Z23DD7291(matchValue[0], undefined), (node.tail = t, t)));
                 continue loop;
             }
             else {
@@ -446,9 +471,9 @@ export function unfold(generator, state) {
             break;
         }
     };
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const node_1 = loop(state, root);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node_1.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -480,12 +505,12 @@ export function toSeq(xs) {
 export function ofArrayWithTail(xs, tail_1) {
     let res = tail_1;
     for (let i = xs.length - 1; i >= 0; i--) {
-        res = FSharpList_Cons_305B8EAC(item_1(i, xs), res);
+        res = FSharpList_$ctor_Z23DD7291(item_1(i, xs), res);
     }
     return res;
 }
 export function ofArray(xs) {
-    return ofArrayWithTail(xs, FSharpList_get_Empty());
+    return ofArrayWithTail(xs, empty());
 }
 export function ofSeq(xs) {
     if (isArrayLike(xs)) {
@@ -495,31 +520,31 @@ export function ofSeq(xs) {
         return xs;
     }
     else {
-        const root = FSharpList_get_Empty();
+        const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
         let node = root;
         const enumerator = getEnumerator(xs);
         try {
             while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
                 let xs_3 = undefined, t = undefined;
-                const x = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
-                node = ((xs_3 = node, (t = (new FSharpList(x, undefined)), (xs_3.tail = t, t))));
+                const x_1 = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                node = ((xs_3 = node, (t = FSharpList_$ctor_Z23DD7291(x_1, undefined), (xs_3.tail = t, t))));
             }
         }
         finally {
             disposeSafe(enumerator);
         }
         const xs_5 = node;
-        const t_2 = FSharpList_get_Empty();
+        const t_2 = empty();
         xs_5.tail = t_2;
         return FSharpList__get_Tail(root);
     }
 }
 export function concat(lists) {
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     let node = root;
     const action = (xs) => {
-        node = fold((acc, x) => {
-            const t = new FSharpList(x, undefined);
+        node = fold((acc, x_1) => {
+            const t = FSharpList_$ctor_Z23DD7291(x_1, undefined);
             acc.tail = t;
             return t;
         }, node, xs);
@@ -543,14 +568,14 @@ export function concat(lists) {
         }
     }
     const xs_6 = node;
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     xs_6.tail = t_2;
     return FSharpList__get_Tail(root);
 }
 export function scan(folder, state, xs) {
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     let node;
-    const t = new FSharpList(state, undefined);
+    const t = FSharpList_$ctor_Z23DD7291(state, undefined);
     root.tail = t;
     node = t;
     let acc = state;
@@ -558,11 +583,11 @@ export function scan(folder, state, xs) {
     while (!FSharpList__get_IsEmpty(xs_3)) {
         let xs_4 = undefined, t_2 = undefined;
         acc = folder(acc, FSharpList__get_Head(xs_3));
-        node = ((xs_4 = node, (t_2 = (new FSharpList(acc, undefined)), (xs_4.tail = t_2, t_2))));
+        node = ((xs_4 = node, (t_2 = FSharpList_$ctor_Z23DD7291(acc, undefined), (xs_4.tail = t_2, t_2))));
         xs_3 = FSharpList__get_Tail(xs_3);
     }
     const xs_6 = node;
-    const t_4 = FSharpList_get_Empty();
+    const t_4 = empty();
     xs_6.tail = t_4;
     return FSharpList__get_Tail(root);
 }
@@ -570,45 +595,55 @@ export function scanBack(folder, xs, state) {
     return ofArray(scanBack_1(folder, toArray(xs), state));
 }
 export function append(xs, ys) {
-    return fold((acc, x) => FSharpList_Cons_305B8EAC(x, acc), ys, reverse(xs));
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    let node = root;
+    let rest = xs;
+    while (rest.tail != null) {
+        let xs_1 = undefined, t = undefined;
+        node = ((xs_1 = node, (t = FSharpList_$ctor_Z23DD7291(rest.head, undefined), (xs_1.tail = t, t))));
+        rest = rest.tail;
+    }
+    const xs_3 = node;
+    xs_3.tail = ys;
+    return FSharpList__get_Tail(root);
 }
 export function collect(mapping, xs) {
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     let node = root;
     let ys = xs;
     while (!FSharpList__get_IsEmpty(ys)) {
         let zs = mapping(FSharpList__get_Head(ys));
         while (!FSharpList__get_IsEmpty(zs)) {
             let xs_1 = undefined, t = undefined;
-            node = ((xs_1 = node, (t = (new FSharpList(FSharpList__get_Head(zs), undefined)), (xs_1.tail = t, t))));
+            node = ((xs_1 = node, (t = FSharpList_$ctor_Z23DD7291(FSharpList__get_Head(zs), undefined), (xs_1.tail = t, t))));
             zs = FSharpList__get_Tail(zs);
         }
         ys = FSharpList__get_Tail(ys);
     }
     const xs_3 = node;
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     xs_3.tail = t_2;
     return FSharpList__get_Tail(root);
 }
 export function mapIndexed(mapping, xs) {
-    const root = FSharpList_get_Empty();
-    const node = foldIndexed((i, acc, x) => {
-        const t = new FSharpList(mapping(i, x), undefined);
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    const node = foldIndexed((i, acc, x_1) => {
+        const t = FSharpList_$ctor_Z23DD7291(mapping(i, x_1), undefined);
         acc.tail = t;
         return t;
     }, root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
 export function map(mapping, xs) {
-    const root = FSharpList_get_Empty();
-    const node = fold((acc, x) => {
-        const t = new FSharpList(mapping(x), undefined);
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    const node = fold((acc, x_1) => {
+        const t = FSharpList_$ctor_Z23DD7291(mapping(x_1), undefined);
         acc.tail = t;
         return t;
     }, root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -616,13 +651,13 @@ export function indexed(xs) {
     return mapIndexed((i, x) => [i, x], xs);
 }
 export function map2(mapping, xs, ys) {
-    const root = FSharpList_get_Empty();
-    const node = fold2((acc, x, y) => {
-        const t = new FSharpList(mapping(x, y), undefined);
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    const node = fold2((acc, x_1, y) => {
+        const t = FSharpList_$ctor_Z23DD7291(mapping(x_1, y), undefined);
         acc.tail = t;
         return t;
     }, root, xs, ys);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -632,11 +667,17 @@ export function mapIndexed2(mapping, xs, ys) {
             const i = i_mut, acc = acc_mut, xs_1 = xs_1_mut, ys_1 = ys_1_mut;
             let t = undefined;
             if (FSharpList__get_IsEmpty(xs_1) ? true : FSharpList__get_IsEmpty(ys_1)) {
+                if (!FSharpList__get_IsEmpty(xs_1)) {
+                    differentLengths("list2");
+                }
+                else if (!FSharpList__get_IsEmpty(ys_1)) {
+                    differentLengths("list1");
+                }
                 return acc;
             }
             else {
                 i_mut = (i + 1);
-                acc_mut = ((t = (new FSharpList(mapping(i, FSharpList__get_Head(xs_1), FSharpList__get_Head(ys_1)), undefined)), (acc.tail = t, t)));
+                acc_mut = ((t = FSharpList_$ctor_Z23DD7291(mapping(i, FSharpList__get_Head(xs_1), FSharpList__get_Head(ys_1)), undefined), (acc.tail = t, t)));
                 xs_1_mut = FSharpList__get_Tail(xs_1);
                 ys_1_mut = FSharpList__get_Tail(ys_1);
                 continue loop;
@@ -644,9 +685,9 @@ export function mapIndexed2(mapping, xs, ys) {
             break;
         }
     };
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const node_1 = loop(0, root, xs, ys);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node_1.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -656,10 +697,13 @@ export function map3(mapping, xs, ys, zs) {
             const acc = acc_mut, xs_1 = xs_1_mut, ys_1 = ys_1_mut, zs_1 = zs_1_mut;
             let t = undefined;
             if ((FSharpList__get_IsEmpty(xs_1) ? true : FSharpList__get_IsEmpty(ys_1)) ? true : FSharpList__get_IsEmpty(zs_1)) {
+                if (!((FSharpList__get_IsEmpty(xs_1) && FSharpList__get_IsEmpty(ys_1)) && FSharpList__get_IsEmpty(zs_1))) {
+                    differentLengths("list1, list2, list3");
+                }
                 return acc;
             }
             else {
-                acc_mut = ((t = (new FSharpList(mapping(FSharpList__get_Head(xs_1), FSharpList__get_Head(ys_1), FSharpList__get_Head(zs_1)), undefined)), (acc.tail = t, t)));
+                acc_mut = ((t = FSharpList_$ctor_Z23DD7291(mapping(FSharpList__get_Head(xs_1), FSharpList__get_Head(ys_1), FSharpList__get_Head(zs_1)), undefined), (acc.tail = t, t)));
                 xs_1_mut = FSharpList__get_Tail(xs_1);
                 ys_1_mut = FSharpList__get_Tail(ys_1);
                 zs_1_mut = FSharpList__get_Tail(zs_1);
@@ -668,20 +712,20 @@ export function map3(mapping, xs, ys, zs) {
             break;
         }
     };
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const node_1 = loop(root, xs, ys, zs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node_1.tail = t_2;
     return FSharpList__get_Tail(root);
 }
 export function mapFold(mapping, state, xs) {
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const patternInput_1 = fold((tupledArg, x) => {
         let t = undefined;
         const patternInput = mapping(tupledArg[1], x);
-        return [(t = (new FSharpList(patternInput[0], undefined)), (tupledArg[0].tail = t, t)), patternInput[1]];
+        return [(t = FSharpList_$ctor_Z23DD7291(patternInput[0], undefined), (tupledArg[0].tail = t, t)), patternInput[1]];
     }, [root, state], xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     patternInput_1[0].tail = t_2;
     return [FSharpList__get_Tail(root), patternInput_1[1]];
 }
@@ -770,7 +814,7 @@ export function findIndex(f, xs) {
         return -1;
     }
     else {
-        return value_1(matchValue) | 0;
+        return matchValue | 0;
     }
 }
 export function tryFindIndexBack(f, xs) {
@@ -783,7 +827,7 @@ export function findIndexBack(f, xs) {
         return -1;
     }
     else {
-        return value_1(matchValue) | 0;
+        return matchValue | 0;
     }
 }
 export function tryItem(n, xs) {
@@ -810,10 +854,10 @@ export function item(n, xs) {
     return FSharpList__get_Item_Z524259A4(xs, n);
 }
 export function filter(f, xs) {
-    const root = FSharpList_get_Empty();
-    const node = fold((acc, x) => {
-        if (f(x)) {
-            const t = new FSharpList(x, undefined);
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    const node = fold((acc, x_1) => {
+        if (f(x_1)) {
+            const t = FSharpList_$ctor_Z23DD7291(x_1, undefined);
             acc.tail = t;
             return t;
         }
@@ -821,45 +865,45 @@ export function filter(f, xs) {
             return acc;
         }
     }, root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
 export function partition(f, xs) {
-    const matchValue = FSharpList_get_Empty();
-    const root2 = FSharpList_get_Empty();
+    const matchValue = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    const root2 = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const root1 = matchValue;
-    const patternInput_1 = fold((tupledArg, x) => {
+    const patternInput_1 = fold((tupledArg, x_2) => {
         let t = undefined, t_2 = undefined;
         const lacc = tupledArg[0];
         const racc = tupledArg[1];
-        if (f(x)) {
-            return [(t = (new FSharpList(x, undefined)), (lacc.tail = t, t)), racc];
+        if (f(x_2)) {
+            return [(t = FSharpList_$ctor_Z23DD7291(x_2, undefined), (lacc.tail = t, t)), racc];
         }
         else {
-            return [lacc, (t_2 = (new FSharpList(x, undefined)), (racc.tail = t_2, t_2))];
+            return [lacc, (t_2 = FSharpList_$ctor_Z23DD7291(x_2, undefined), (racc.tail = t_2, t_2))];
         }
     }, [root1, root2], xs);
-    const t_4 = FSharpList_get_Empty();
+    const t_4 = empty();
     patternInput_1[0].tail = t_4;
-    const t_5 = FSharpList_get_Empty();
+    const t_5 = empty();
     patternInput_1[1].tail = t_5;
     return [FSharpList__get_Tail(root1), FSharpList__get_Tail(root2)];
 }
 export function choose(f, xs) {
-    const root = FSharpList_get_Empty();
-    const node = fold((acc, x) => {
-        const matchValue = f(x);
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
+    const node = fold((acc, x_1) => {
+        const matchValue = f(x_1);
         if (matchValue == null) {
             return acc;
         }
         else {
-            const t = new FSharpList(value_1(matchValue), undefined);
+            const t = FSharpList_$ctor_Z23DD7291(value_1(matchValue), undefined);
             acc.tail = t;
             return t;
         }
     }, root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -867,14 +911,17 @@ export function contains(value, xs, eq) {
     return tryFindIndex((v) => eq.Equals(value, v), xs) != null;
 }
 export function initialize(n, f) {
-    const root = FSharpList_get_Empty();
+    if (n < 0) {
+        throw Operators_InvalidArg("count", SR_inputMustBeNonNegative);
+    }
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     let node = root;
     for (let i = 0; i <= (n - 1); i++) {
         let xs = undefined, t = undefined;
-        node = ((xs = node, (t = (new FSharpList(f(i), undefined)), (xs.tail = t, t))));
+        node = ((xs = node, (t = FSharpList_$ctor_Z23DD7291(f(i), undefined), (xs.tail = t, t))));
     }
     const xs_2 = node;
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     xs_2.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -883,7 +930,7 @@ export function replicate(n, x) {
 }
 export function reduce(f, xs) {
     if (FSharpList__get_IsEmpty(xs)) {
-        throw new Exception(SR_inputWasEmpty);
+        throw Operators_InvalidArg("list", SR_inputWasEmpty);
     }
     else {
         return fold(f, head(xs), tail(xs));
@@ -891,7 +938,7 @@ export function reduce(f, xs) {
 }
 export function reduceBack(f, xs) {
     if (FSharpList__get_IsEmpty(xs)) {
-        throw new Exception(SR_inputWasEmpty);
+        throw Operators_InvalidArg("list", SR_inputWasEmpty);
     }
     else {
         return foldBack(f, tail(xs), head(xs));
@@ -900,8 +947,33 @@ export function reduceBack(f, xs) {
 export function forAll(f, xs) {
     return fold((acc, x) => (acc && f(x)), true, xs);
 }
-export function forAll2(f, xs, ys) {
-    return fold2((acc, x, y) => (acc && f(x, y)), true, xs, ys);
+export function forAll2(f_mut, xs_mut, ys_mut) {
+    forAll2: while (true) {
+        const f = f_mut, xs = xs_mut, ys = ys_mut;
+        const matchValue = FSharpList__get_IsEmpty(xs);
+        const matchValue_1 = FSharpList__get_IsEmpty(ys);
+        if (matchValue) {
+            if (matchValue_1) {
+                return true;
+            }
+            else {
+                return differentLengths("list1");
+            }
+        }
+        else if (matchValue_1) {
+            return differentLengths("list2");
+        }
+        else if (f(FSharpList__get_Head(xs), FSharpList__get_Head(ys))) {
+            f_mut = f;
+            xs_mut = FSharpList__get_Tail(xs);
+            ys_mut = FSharpList__get_Tail(ys);
+            continue forAll2;
+        }
+        else {
+            return false;
+        }
+        break;
+    }
 }
 export function exists(f, xs) {
     return tryFindIndex(f, xs) != null;
@@ -940,16 +1012,16 @@ export function exists2(f_mut, xs_mut, ys_mut) {
                     continue exists2;
                 }
             default:
-                throw new Exception(SR_differentLengths + " (Parameter \'list2\')");
+                return differentLengths("list2");
         }
         break;
     }
 }
 export function unzip(xs) {
-    return foldBack((tupledArg, tupledArg_1) => [FSharpList_Cons_305B8EAC(tupledArg[0], tupledArg_1[0]), FSharpList_Cons_305B8EAC(tupledArg[1], tupledArg_1[1])], xs, [FSharpList_get_Empty(), FSharpList_get_Empty()]);
+    return foldBack((tupledArg, tupledArg_1) => [FSharpList_$ctor_Z23DD7291(tupledArg[0], tupledArg_1[0]), FSharpList_$ctor_Z23DD7291(tupledArg[1], tupledArg_1[1])], xs, [empty(), empty()]);
 }
 export function unzip3(xs) {
-    return foldBack((tupledArg, tupledArg_1) => [FSharpList_Cons_305B8EAC(tupledArg[0], tupledArg_1[0]), FSharpList_Cons_305B8EAC(tupledArg[1], tupledArg_1[1]), FSharpList_Cons_305B8EAC(tupledArg[2], tupledArg_1[2])], xs, [FSharpList_get_Empty(), FSharpList_get_Empty(), FSharpList_get_Empty()]);
+    return foldBack((tupledArg, tupledArg_1) => [FSharpList_$ctor_Z23DD7291(tupledArg[0], tupledArg_1[0]), FSharpList_$ctor_Z23DD7291(tupledArg[1], tupledArg_1[1]), FSharpList_$ctor_Z23DD7291(tupledArg[2], tupledArg_1[2])], xs, [empty(), empty(), empty()]);
 }
 export function zip(xs, ys) {
     return map2((x, y) => [x, y], xs, ys);
@@ -993,6 +1065,9 @@ export function min(xs, comparer) {
     return reduce((x, y) => ((comparer.Compare(y, x) > 0) ? x : y), xs);
 }
 export function average(xs, averager) {
+    if (FSharpList__get_IsEmpty(xs)) {
+        throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
+    }
     let count = 0;
     const total = fold((acc, x) => {
         count = ((count + 1) | 0);
@@ -1001,6 +1076,9 @@ export function average(xs, averager) {
     return averager.DivideByInt(total, count);
 }
 export function averageBy(f, xs, averager) {
+    if (FSharpList__get_IsEmpty(xs)) {
+        throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
+    }
     let count = 0;
     const total = fold((acc, x) => {
         count = ((count + 1) | 0);
@@ -1015,16 +1093,16 @@ export function chunkBySize(chunkSize, xs) {
     return ofArray(map_1(ofArray, chunkBySize_1(chunkSize, toArray(xs))));
 }
 export function allPairs(xs, ys) {
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     let node = root;
-    iterate((x) => {
+    iterate((x_1) => {
         iterate((y) => {
             let xs_1 = undefined, t = undefined;
-            node = ((xs_1 = node, (t = (new FSharpList([x, y], undefined)), (xs_1.tail = t, t))));
+            node = ((xs_1 = node, (t = FSharpList_$ctor_Z23DD7291([x_1, y], undefined), (xs_1.tail = t, t))));
         }, ys);
     }, xs);
     const xs_3 = node;
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     xs_3.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -1035,7 +1113,7 @@ export function skip(count_mut, xs_mut) {
             return xs;
         }
         else if (FSharpList__get_IsEmpty(xs)) {
-            throw new Exception(SR_notEnoughElements + " (Parameter \'list\')");
+            throw ArgumentOutOfRangeException_$ctor_Z384F8060("count", "The index is outside the legal range.");
         }
         else {
             count_mut = (count - 1);
@@ -1064,7 +1142,7 @@ export function skipWhile(predicate_mut, xs_mut) {
 }
 export function take(count, xs) {
     if (count < 0) {
-        throw new Exception(SR_inputMustBeNonNegative + " (Parameter \'count\')");
+        throw Operators_InvalidArg("count", SR_inputMustBeNonNegative);
     }
     const loop = (i_mut, acc_mut, xs_1_mut) => {
         loop: while (true) {
@@ -1074,20 +1152,20 @@ export function take(count, xs) {
                 return acc;
             }
             else if (FSharpList__get_IsEmpty(xs_1)) {
-                throw new Exception(SR_notEnoughElements + " (Parameter \'list\')");
+                throw Operators_InvalidOp(SR_notEnoughElements);
             }
             else {
                 i_mut = (i - 1);
-                acc_mut = ((t = (new FSharpList(FSharpList__get_Head(xs_1), undefined)), (acc.tail = t, t)));
+                acc_mut = ((t = FSharpList_$ctor_Z23DD7291(FSharpList__get_Head(xs_1), undefined), (acc.tail = t, t)));
                 xs_1_mut = FSharpList__get_Tail(xs_1);
                 continue loop;
             }
             break;
         }
     };
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const node = loop(count, root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -1103,16 +1181,16 @@ export function takeWhile(predicate, xs) {
                 return acc;
             }
             else {
-                acc_mut = ((t = (new FSharpList(FSharpList__get_Head(xs_1), undefined)), (acc.tail = t, t)));
+                acc_mut = ((t = FSharpList_$ctor_Z23DD7291(FSharpList__get_Head(xs_1), undefined), (acc.tail = t, t)));
                 xs_1_mut = FSharpList__get_Tail(xs_1);
                 continue loop;
             }
             break;
         }
     };
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const node = loop(root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -1129,16 +1207,16 @@ export function truncate(count, xs) {
             }
             else {
                 i_mut = (i - 1);
-                acc_mut = ((t = (new FSharpList(FSharpList__get_Head(xs_1), undefined)), (acc.tail = t, t)));
+                acc_mut = ((t = FSharpList_$ctor_Z23DD7291(FSharpList__get_Head(xs_1), undefined), (acc.tail = t, t)));
                 xs_1_mut = FSharpList__get_Tail(xs_1);
                 continue loop;
             }
             break;
         }
     };
-    const root = FSharpList_get_Empty();
+    const root = FSharpList_$ctor_Z23DD7291(defaultOf(), undefined);
     const node = loop(count, root, xs);
-    const t_2 = FSharpList_get_Empty();
+    const t_2 = empty();
     node.tail = t_2;
     return FSharpList__get_Tail(root);
 }
@@ -1151,7 +1229,7 @@ export function getSlice(startIndex, endIndex, xs) {
     const index_1 = defaultArg(endIndex, len - 1) | 0;
     endIndex_1 = ((index_1 >= len) ? (len - 1) : index_1);
     if (endIndex_1 < startIndex_1) {
-        return FSharpList_get_Empty();
+        return empty();
     }
     else {
         return take((endIndex_1 - startIndex_1) + 1, skip(startIndex_1, xs));
@@ -1159,22 +1237,22 @@ export function getSlice(startIndex, endIndex, xs) {
 }
 export function splitAt(index, xs) {
     if (index < 0) {
-        throw new Exception(SR_inputMustBeNonNegative + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_inputMustBeNonNegative);
     }
     if (index > FSharpList__get_Length(xs)) {
-        throw new Exception(SR_notEnoughElements + " (Parameter \'index\')");
+        throw Operators_InvalidOp(SR_notEnoughElements);
     }
     return [take(index, xs), skip(index, xs)];
 }
 export function exactlyOne(xs) {
     if (FSharpList__get_IsEmpty(xs)) {
-        throw new Exception(SR_inputSequenceEmpty + " (Parameter \'list\')");
+        throw Operators_InvalidArg("list", SR_inputSequenceEmpty);
     }
     else if (FSharpList__get_IsEmpty(FSharpList__get_Tail(xs))) {
         return FSharpList__get_Head(xs);
     }
     else {
-        throw new Exception(SR_inputSequenceTooLong + " (Parameter \'list\')");
+        throw Operators_InvalidArg("list", SR_inputSequenceTooLong);
     }
 }
 export function tryExactlyOne(xs) {
@@ -1207,14 +1285,14 @@ export function insertAt(index, y, xs) {
         i = ((i + 1) | 0);
         if (i === index) {
             isDone = true;
-            return FSharpList_Cons_305B8EAC(x, FSharpList_Cons_305B8EAC(y, acc));
+            return FSharpList_$ctor_Z23DD7291(x, FSharpList_$ctor_Z23DD7291(y, acc));
         }
         else {
-            return FSharpList_Cons_305B8EAC(x, acc);
+            return FSharpList_$ctor_Z23DD7291(x, acc);
         }
-    }, FSharpList_get_Empty(), xs);
-    return reverse(isDone ? result : (((i + 1) === index) ? FSharpList_Cons_305B8EAC(y, result) : (() => {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+    }, empty(), xs);
+    return reverse(isDone ? result : (((i + 1) === index) ? FSharpList_$ctor_Z23DD7291(y, result) : (() => {
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     })()));
 }
 export function insertManyAt(index, ys, xs) {
@@ -1225,14 +1303,14 @@ export function insertManyAt(index, ys, xs) {
         i = ((i + 1) | 0);
         if (i === index) {
             isDone = true;
-            return FSharpList_Cons_305B8EAC(x, append(ys_1, acc));
+            return FSharpList_$ctor_Z23DD7291(x, append(ys_1, acc));
         }
         else {
-            return FSharpList_Cons_305B8EAC(x, acc);
+            return FSharpList_$ctor_Z23DD7291(x, acc);
         }
-    }, FSharpList_get_Empty(), xs);
+    }, empty(), xs);
     return reverse(isDone ? result : (((i + 1) === index) ? append(ys_1, result) : (() => {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     })()));
 }
 export function removeAt(index, xs) {
@@ -1249,35 +1327,27 @@ export function removeAt(index, xs) {
         }
     }, xs);
     if (!isDone) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     }
     return ys;
 }
 export function removeManyAt(index, count, xs) {
+    if (index < 0) {
+        throw Operators_InvalidArg("index", "index must be within bounds of the list");
+    }
+    const endIndex = (index + count) | 0;
     let i = -1;
-    let status = -1;
     const ys = filter((_arg) => {
         i = ((i + 1) | 0);
-        if (i === index) {
-            status = 0;
-            return false;
-        }
-        else if (i > index) {
-            if (i < (index + count)) {
-                return false;
-            }
-            else {
-                status = 1;
-                return true;
-            }
+        if (i < index) {
+            return true;
         }
         else {
-            return true;
+            return i >= endIndex;
         }
     }, xs);
-    const status_1 = (((status === 0) && ((i + 1) === (index + count))) ? 1 : status) | 0;
-    if (status_1 < 1) {
-        throw new Exception(SR_indexOutOfBounds + ((" (Parameter \'" + ((status_1 < 0) ? "index" : "count")) + "\')"));
+    if (endIndex > (i + 1)) {
+        throw Operators_InvalidArg("index", "index must be within bounds of the list");
     }
     return ys;
 }
@@ -1293,7 +1363,7 @@ export function updateAt(index, y, xs) {
         }
     }, xs);
     if (!isDone) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     }
     return ys;
 }