@fable-org/fable-library-js 2.9.0 → 2.11.0

package/Seq.js

@@ -1,17 +1,18 @@
-import { InvalidOperationException_$ctor_Z721C83C5, NotSupportedException_$ctor_Z721C83C5 } from "./System.js";
-import { clear, Exception, isDisposable, isArrayLike, toIterator, disposeSafe, getEnumerator } from "./Util.js";
+import { ArgumentOutOfRangeException_$ctor_Z721C83C5, InvalidOperationException_$ctor_Z721C83C5, NotSupportedException_$ctor_Z721C83C5 } from "./System.js";
+import { clear, isDisposable, isArrayLike, toIterator, disposeSafe, getEnumerator } from "./Util.js";
 import { toString } from "./Types.js";
 import { class_type } from "./Reflection.js";
 import { some, value as value_1 } from "./Option.js";
 import { KeyNotFoundException_$ctor_Z721C83C5 } from "./System.Collections.Generic.js";
-import { Operators_Lock, Operators_NullArgCheck } from "./FSharp.Core.js";
-import { randomSampleBy as randomSampleBy_1, randomChoicesBy as randomChoicesBy_1, randomChoice as randomChoice_1, randomChoiceWith as randomChoiceWith_1, randomChoiceBy as randomChoiceBy_1, randomShuffleInPlaceBy, chunkBySize as chunkBySize_1, permute as permute_1, transpose as transpose_1, map as map_1, windowed as windowed_1, splitInto as splitInto_1, pairwise as pairwise_1, scanBack as scanBack_1, reverse as reverse_1, mapFoldBack as mapFoldBack_1, mapFold as mapFold_1, tryItem as tryItem_1, tryHead as tryHead_1, item as item_1, foldBack as foldBack_1, tryFindIndexBack as tryFindIndexBack_1, tryFindBack as tryFindBack_1, singleton as singleton_1 } from "./Array.js";
+import { Operators_InvalidOp, Operators_Lock, Operators_InvalidArg, Operators_NullArgCheck } from "./FSharp.Core.js";
+import { randomSampleBy as randomSampleBy_1, randomChoicesBy as randomChoicesBy_1, randomChoice as randomChoice_1, randomChoiceWith as randomChoiceWith_1, randomChoiceBy as randomChoiceBy_1, randomShuffleInPlaceBy, chunkBySize as chunkBySize_1, permute as permute_1, windowed as windowed_1, splitInto as splitInto_1, pairwise as pairwise_1, scanBack as scanBack_1, reverse as reverse_1, reduceBack as reduceBack_1, mapFoldBack as mapFoldBack_1, mapFold as mapFold_1, tryItem as tryItem_1, tryHead as tryHead_1, item as item_1, foldBack as foldBack_1, tryFindIndexBack as tryFindIndexBack_1, tryFindBack as tryFindBack_1, singleton as singleton_1 } from "./Array.js";
 import { length as length_1, tryItem as tryItem_2, isEmpty as isEmpty_1, tryHead as tryHead_2, ofSeq as ofSeq_1, ofArray as ofArray_1, toArray as toArray_1, FSharpList } from "./List.js";
 import { min as min_1 } from "./Double.js";
-import { SR_indexOutOfBounds } from "./Global.js";
+import { SR_indexOutOfBounds, SR_inputMustBeNonNegative } from "./Global.js";
 import { nonSeeded } from "./Random.js";
 export const SR_enumerationAlreadyFinished = "Enumeration already finished.";
 export const SR_enumerationNotStarted = "Enumeration has not started. Call MoveNext.";
+export const SR_inputMustBePositive = "The input must be positive.";
 export const SR_inputSequenceEmpty = "The input sequence was empty.";
 export const SR_inputSequenceTooLong = "The input sequence contains more than one element.";
 export const SR_keyNotFoundAlt = "An index satisfying the predicate was not found in the collection.";
@@ -116,7 +117,7 @@ export function Enumerator_concat(sources) {
     const finish = () => {
         finished = true;
         if (innerOpt != null) {
-            const inner = value_1(innerOpt);
+            const inner = innerOpt;
             try {
                 disposeSafe(inner);
             }
@@ -125,7 +126,7 @@ export function Enumerator_concat(sources) {
             }
         }
         if (outerOpt != null) {
-            const outer = value_1(outerOpt);
+            const outer = outerOpt;
             try {
                 disposeSafe(outer);
             }
@@ -162,7 +163,7 @@ export function Enumerator_concat(sources) {
                 const innerOpt_1 = innerOpt;
                 if (outerOpt_1 != null) {
                     if (innerOpt_1 != null) {
-                        const inner_1 = value_1(innerOpt_1);
+                        const inner_1 = innerOpt_1;
                         if (inner_1["System.Collections.IEnumerator.MoveNext"]()) {
                             curr = some(inner_1["System.Collections.Generic.IEnumerator`1.get_Current"]());
                             res = true;
@@ -177,7 +178,7 @@ export function Enumerator_concat(sources) {
                         }
                     }
                     else {
-                        const outer_1 = value_1(outerOpt_1);
+                        const outer_1 = outerOpt_1;
                         if (outer_1["System.Collections.IEnumerator.MoveNext"]()) {
                             const ie = outer_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
                             innerOpt = ((copyOfStruct = ie, getEnumerator(copyOfStruct)));
@@ -276,8 +277,8 @@ export function Enumerator_unfold(f, state) {
     let acc = state;
     return Enumerator_FromFunctions$1_$ctor_58C54629(() => {
         if (curr != null) {
-            const x = value_1(curr)[0];
-            value_1(curr)[1];
+            const x = curr[0];
+            curr[1];
             return x;
         }
         else {
@@ -286,8 +287,8 @@ export function Enumerator_unfold(f, state) {
     }, () => {
         curr = f(acc);
         if (curr != null) {
-            value_1(curr)[0];
-            const st_1 = value_1(curr)[1];
+            curr[0];
+            const st_1 = curr[1];
             acc = st_1;
             return true;
         }
@@ -325,12 +326,24 @@ export function ofArray(arr) {
     return arr;
 }
 export function toArray(xs) {
-    if (xs instanceof FSharpList) {
-        const a = xs;
-        return toArray_1(a);
+    if (isArrayLike(xs)) {
+        return Array.from(xs);
+    }
+    else if (xs instanceof FSharpList) {
+        return toArray_1(xs);
     }
     else {
-        return Array.from(xs);
+        const res = [];
+        const e = getEnumerator(xs);
+        try {
+            while (e["System.Collections.IEnumerator.MoveNext"]()) {
+                void (res.push(e["System.Collections.Generic.IEnumerator`1.get_Current"]()));
+            }
+            return res.slice();
+        }
+        finally {
+            disposeSafe(e);
+        }
     }
 }
 export function ofList(xs) {
@@ -473,7 +486,7 @@ export function enumerateTryWith(source, catchFilter, catchHandler) {
                     en_2 = en_1;
                 }
                 else {
-                    en_2 = value_1(e);
+                    en_2 = e;
                 }
                 if (en_2["System.Collections.IEnumerator.MoveNext"]()) {
                     curr = some(en_2["System.Collections.Generic.IEnumerator`1.get_Current"]());
@@ -492,7 +505,7 @@ export function enumerateTryWith(source, catchFilter, catchHandler) {
                         if (e == null) {
                         }
                         else {
-                            const en_3 = value_1(e);
+                            const en_3 = e;
                             try {
                                 disposeSafe(en_3);
                             }
@@ -539,7 +552,7 @@ export function enumerateTryWith(source, catchFilter, catchHandler) {
             if (e == null) {
             }
             else {
-                disposeSafe(value_1(e));
+                disposeSafe(e);
             }
         });
     });
@@ -592,14 +605,14 @@ export function exactlyOne(xs) {
         if (e["System.Collections.IEnumerator.MoveNext"]()) {
             const v = e["System.Collections.Generic.IEnumerator`1.get_Current"]();
             if (e["System.Collections.IEnumerator.MoveNext"]()) {
-                throw new Exception(SR_inputSequenceTooLong + " (Parameter \'source\')");
+                throw Operators_InvalidArg("source", SR_inputSequenceTooLong);
             }
             else {
                 return v;
             }
         }
         else {
-            throw new Exception(SR_inputSequenceEmpty + " (Parameter \'source\')");
+            throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
         }
     }
     finally {
@@ -692,7 +705,7 @@ export function findIndex(predicate, xs) {
         return -1;
     }
     else {
-        return value_1(matchValue) | 0;
+        return matchValue | 0;
     }
 }
 export function tryFindIndexBack(predicate, xs) {
@@ -705,7 +718,7 @@ export function findIndexBack(predicate, xs) {
         return -1;
     }
     else {
-        return value_1(matchValue) | 0;
+        return matchValue | 0;
     }
 }
 export function fold(folder, state, xs) {
@@ -779,13 +792,16 @@ export function tryHead(xs) {
 export function head(xs) {
     const matchValue = tryHead(xs);
     if (matchValue == null) {
-        throw new Exception(SR_inputSequenceEmpty + " (Parameter \'source\')");
+        throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
     }
     else {
         return value_1(matchValue);
     }
 }
 export function initialize(count, f) {
+    if (count < 0) {
+        throw Operators_InvalidArg("count", SR_inputMustBeNonNegative);
+    }
     return unfold((i) => ((i < count) ? [f(i), i + 1] : undefined), 0);
 }
 export function initializeInfinite(f) {
@@ -845,7 +861,7 @@ export function tryItem(index, xs) {
 export function item(index, xs) {
     const matchValue = tryItem(index, xs);
     if (matchValue == null) {
-        throw new Exception(SR_notEnoughElements + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_notEnoughElements);
     }
     else {
         return value_1(matchValue);
@@ -898,7 +914,7 @@ export function tryLast(xs) {
 export function last(xs) {
     const matchValue = tryLast(xs);
     if (matchValue == null) {
-        throw new Exception(SR_notEnoughElements + " (Parameter \'source\')");
+        throw Operators_InvalidArg("source", SR_notEnoughElements);
     }
     else {
         return value_1(matchValue);
@@ -1031,7 +1047,7 @@ export function cache(source) {
             if (enumeratorR != null) {
                 if (value_1(enumeratorR) != null) {
                     matchResult = 0;
-                    e = value_1(value_1(enumeratorR));
+                    e = value_1(enumeratorR);
                 }
                 else {
                     matchResult = 1;
@@ -1066,7 +1082,7 @@ export function cache(source) {
                 if (optEnumerator_2 == null) {
                 }
                 else {
-                    const enumerator = value_1(optEnumerator_2);
+                    const enumerator = optEnumerator_2;
                     if (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
                         void (prefix.push(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]()));
                     }
@@ -1139,7 +1155,7 @@ export function reduce(folder, xs) {
             return loop(e["System.Collections.Generic.IEnumerator`1.get_Current"]());
         }
         else {
-            throw new Exception(SR_inputSequenceEmpty);
+            throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
         }
     }
     finally {
@@ -1149,13 +1165,16 @@ export function reduce(folder, xs) {
 export function reduceBack(folder, xs) {
     const arr = toArray(xs);
     if (arr.length > 0) {
-        return arr.reduceRight(folder);
+        return reduceBack_1(folder, arr);
     }
     else {
-        throw new Exception(SR_inputSequenceEmpty);
+        throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
     }
 }
 export function replicate(n, x) {
+    if (n < 0) {
+        throw ArgumentOutOfRangeException_$ctor_Z721C83C5("count");
+    }
     return initialize(n, (_arg) => x);
 }
 export function reverse(xs) {
@@ -1179,7 +1198,7 @@ export function skip(count, source) {
         try {
             for (let _ = 1; _ <= count; _++) {
                 if (!e["System.Collections.IEnumerator.MoveNext"]()) {
-                    throw new Exception(SR_notEnoughElements + " (Parameter \'source\')");
+                    throw Operators_InvalidOp(SR_notEnoughElements);
                 }
             }
             return Enumerator_enumerateThenFinally(() => {
@@ -1203,16 +1222,32 @@ export function skipWhile(predicate, xs) {
     });
 }
 export function tail(xs) {
-    return skip(1, xs);
+    return mkSeq(() => {
+        const e = ofSeq(xs);
+        try {
+            if (!e["System.Collections.IEnumerator.MoveNext"]()) {
+                throw Operators_InvalidArg("source", SR_notEnoughElements);
+            }
+            return Enumerator_enumerateThenFinally(() => {
+            }, e);
+        }
+        catch (matchValue) {
+            disposeSafe(e);
+            throw matchValue;
+        }
+    });
 }
 export function take(count, xs) {
+    if (count < 0) {
+        throw Operators_InvalidArg("count", SR_inputMustBeNonNegative);
+    }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if (i < count) {
             if (e["System.Collections.IEnumerator.MoveNext"]()) {
                 return some(e["System.Collections.Generic.IEnumerator`1.get_Current"]());
             }
             else {
-                throw new Exception(SR_notEnoughElements + " (Parameter \'source\')");
+                throw Operators_InvalidOp(SR_notEnoughElements);
             }
         }
         else {
@@ -1248,13 +1283,47 @@ export function pairwise(xs) {
     return delay(() => ofArray(pairwise_1(toArray(xs))));
 }
 export function splitInto(chunks, xs) {
+    if (chunks < 1) {
+        throw Operators_InvalidArg("count", SR_inputMustBePositive);
+    }
     return delay(() => ofArray(splitInto_1(chunks, toArray(xs))));
 }
 export function windowed(windowSize, xs) {
+    if (windowSize < 1) {
+        throw Operators_InvalidArg("windowSize", SR_inputMustBePositive);
+    }
     return delay(() => ofArray(windowed_1(windowSize, toArray(xs))));
 }
 export function transpose(xss) {
-    return delay(() => ofArray(map_1(ofArray, transpose_1(map_1(toArray, toArray(xss))))));
+    return delay(() => {
+        const rows = [];
+        const enumerator = getEnumerator(xss);
+        try {
+            while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+                let i = 0;
+                let enumerator_1;
+                let copyOfStruct = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                enumerator_1 = getEnumerator(copyOfStruct);
+                try {
+                    while (enumerator_1["System.Collections.IEnumerator.MoveNext"]()) {
+                        const x = enumerator_1["System.Collections.Generic.IEnumerator`1.get_Current"]();
+                        if (i === rows.length) {
+                            void (rows.push([]));
+                        }
+                        void (item_1(i, rows).push(x));
+                        i = ((i + 1) | 0);
+                    }
+                }
+                finally {
+                    disposeSafe(enumerator_1);
+                }
+            }
+        }
+        finally {
+            disposeSafe(enumerator);
+        }
+        return map((row) => row, rows);
+    });
 }
 export function sortWith(comparer, xs) {
     return delay(() => {
@@ -1300,7 +1369,7 @@ export function average(xs, averager) {
         return averager.Add(acc, x);
     }, averager.GetZero(), xs);
     if (count === 0) {
-        throw new Exception(SR_inputSequenceEmpty + " (Parameter \'source\')");
+        throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
     }
     else {
         return averager.DivideByInt(total, count);
@@ -1313,7 +1382,7 @@ export function averageBy(f, xs, averager) {
         return averager.Add(acc, f(x));
     }, averager.GetZero(), xs);
     if (count === 0) {
-        throw new Exception(SR_inputSequenceEmpty + " (Parameter \'source\')");
+        throw Operators_InvalidArg("source", SR_inputSequenceEmpty);
     }
     else {
         return averager.DivideByInt(total, count);
@@ -1323,12 +1392,15 @@ export function permute(f, xs) {
     return delay(() => ofArray(permute_1(f, toArray(xs))));
 }
 export function chunkBySize(chunkSize, xs) {
+    if (chunkSize < 1) {
+        throw Operators_InvalidArg("chunkSize", SR_inputMustBePositive);
+    }
     return delay(() => ofArray(chunkBySize_1(chunkSize, toArray(xs))));
 }
 export function insertAt(index, y, xs) {
     let isDone = false;
     if (index < 0) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if ((isDone ? true : (i < index)) && e["System.Collections.IEnumerator.MoveNext"]()) {
@@ -1340,7 +1412,7 @@ export function insertAt(index, y, xs) {
         }
         else {
             if (!isDone) {
-                throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+                throw Operators_InvalidArg("index", SR_indexOutOfBounds);
             }
             return undefined;
         }
@@ -1351,7 +1423,7 @@ export function insertAt(index, y, xs) {
 export function insertManyAt(index, ys, xs) {
     let status = -1;
     if (index < 0) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     }
     return generateIndexed(() => [ofSeq(xs), ofSeq(ys)], (i, tupledArg) => {
         const e1 = tupledArg[0];
@@ -1378,7 +1450,7 @@ export function insertManyAt(index, ys, xs) {
             }
             else {
                 if (status < 1) {
-                    throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+                    throw Operators_InvalidArg("index", SR_indexOutOfBounds);
                 }
                 return undefined;
             }
@@ -1394,7 +1466,7 @@ export function insertManyAt(index, ys, xs) {
 export function removeAt(index, xs) {
     let isDone = false;
     if (index < 0) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if ((isDone ? true : (i < index)) && e["System.Collections.IEnumerator.MoveNext"]()) {
@@ -1406,7 +1478,7 @@ export function removeAt(index, xs) {
         }
         else {
             if (!isDone) {
-                throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+                throw Operators_InvalidArg("index", SR_indexOutOfBounds);
             }
             return undefined;
         }
@@ -1416,35 +1488,31 @@ export function removeAt(index, xs) {
 }
 export function removeManyAt(index, count, xs) {
     if (index < 0) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", "index must be within bounds of the array");
     }
-    return generateIndexed(() => ofSeq(xs), (i, e) => {
-        if (i < index) {
-            if (e["System.Collections.IEnumerator.MoveNext"]()) {
-                return some(e["System.Collections.Generic.IEnumerator`1.get_Current"]());
+    const endIndex = (index + count) | 0;
+    return delay(() => {
+        let i = -1;
+        return append(filter((_arg) => {
+            i = ((i + 1) | 0);
+            if (i < index) {
+                return true;
             }
             else {
-                throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+                return i >= endIndex;
             }
-        }
-        else {
-            if (i === index) {
-                for (let _ = 1; _ <= count; _++) {
-                    if (!e["System.Collections.IEnumerator.MoveNext"]()) {
-                        throw new Exception(SR_indexOutOfBounds + " (Parameter \'count\')");
-                    }
-                }
+        }, xs), delay(() => {
+            if (i < index) {
+                throw Operators_InvalidArg("index", "index must be within bounds of the array");
             }
-            return e["System.Collections.IEnumerator.MoveNext"]() ? some(e["System.Collections.Generic.IEnumerator`1.get_Current"]()) : undefined;
-        }
-    }, (e_1) => {
-        disposeSafe(e_1);
+            return empty();
+        }));
     });
 }
 export function updateAt(index, y, xs) {
     let isDone = false;
     if (index < 0) {
-        throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+        throw Operators_InvalidArg("index", SR_indexOutOfBounds);
     }
     return generateIndexed(() => ofSeq(xs), (i, e) => {
         if ((isDone ? true : (i < index)) && e["System.Collections.IEnumerator.MoveNext"]()) {
@@ -1456,7 +1524,7 @@ export function updateAt(index, y, xs) {
         }
         else {
             if (!isDone) {
-                throw new Exception(SR_indexOutOfBounds + " (Parameter \'index\')");
+                throw Operators_InvalidArg("index", SR_indexOutOfBounds);
             }
             return undefined;
         }

package/Seq2.js

@@ -31,10 +31,8 @@ export function countBy(projection, xs, comparer) {
             while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
                 const key = projection(enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]());
                 let matchValue;
-                let outArg = 0;
-                matchValue = [tryGetValue(dict, key, new FSharpRef(() => (outArg | 0), (v) => {
-                        outArg = (v | 0);
-                    })), outArg];
+                const cell = new FSharpRef(0);
+                matchValue = [tryGetValue(dict, key, cell), cell.contents];
                 if (matchValue[0]) {
                     dict.set(key, matchValue[1] + 1);
                 }
@@ -60,10 +58,8 @@ export function groupBy(projection, xs, comparer) {
                 const x = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
                 const key = projection(x);
                 let matchValue;
-                let outArg = defaultOf();
-                matchValue = [tryGetValue(dict, key, new FSharpRef(() => outArg, (v) => {
-                        outArg = v;
-                    })), outArg];
+                const cell = new FSharpRef(defaultOf());
+                matchValue = [tryGetValue(dict, key, cell), cell.contents];
                 if (matchValue[0]) {
                     void (matchValue[1].push(x));
                 }