@fncts/base 0.0.1

package/_mjs/util/rand/distribution/internals/UniformIntDistributionInternal.mjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"UniformIntDistributionInternal.mjs","mappings":"AAEA;;;;AAIA,OAAM,SAAUA,8BAAV,CAAyCC,SAAzC,EAA4DC,GAA5D,EAAgF;EACpF,MAAMC,MAAM,GAAMD,GAAG,CAACE,GAAJ,EAAlB;EACA,MAAMC,SAAS,GAAGH,GAAG,CAACI,GAAJ,KAAYJ,GAAG,CAACE,GAAJ,EAAZ,GAAwB,CAA1C,CAFoF,CAIpF;;EACA,IAAIH,SAAS,IAAII,SAAjB,EAA4B;IAC1B,MAAME,UAAU,GAAGF,SAAS,GAAIA,SAAS,GAAGJ,SAA5C,CAD0B,CAE1B;;IACA,OAAO,IAAP,EAAa;MACX,MAAMO,GAAG,GAAMN,GAAG,CAACO,IAAJ,EAAf;MACA,MAAMC,MAAM,GAAGF,GAAG,GAAGL,MAArB;;MACA,IAAIO,MAAM,GAAGH,UAAb,EAAyB;QACvB,OAAOG,MAAM,GAAGT,SAAhB,CADuB,CACI;MAC5B;IACF;EACF,CAfmF,CAiBpF;EACA;;;EACA,IAAIU,cAAc,GAAGN,SAAS,GAAGA,SAAjC;EACA,IAAIO,aAAa,GAAI,CAArB,CApBoF,CAoB5D;;EACxB,OAAOD,cAAc,GAAGV,SAAxB,EAAmC;IACjCU,cAAc,IAAIN,SAAlB;IACA,EAAEO,aAAF;EACD;;EACD,MAAMC,iBAAiB,GAAGZ,SAAS,GAAGa,IAAI,CAACC,KAAL,CAAY,IAAIJ,cAAL,GAAuBV,SAAlC,CAAtC,CAzBoF,CA2BpF;;EACA,OAAO,IAAP,EAAa;IACX;IACA,IAAIe,KAAK,GAAG,CAAZ;;IACA,KAAK,IAAIC,GAAG,GAAG,CAAf,EAAkBA,GAAG,KAAKL,aAA1B,EAAyC,EAAEK,GAA3C,EAAgD;MAC9C,MAAMT,GAAG,GAAGN,GAAG,CAACO,IAAJ,EAAZ;MACAO,KAAK,GAAOX,SAAS,GAAGW,KAAZ,IAAqBR,GAAG,GAAGL,MAA3B,CAAZ,CAF8C,CAEE;IACjD;;IACD,IAAIa,KAAK,GAAGH,iBAAZ,EAA+B;MAC7B,MAAMK,MAAM,GAAGF,KAAK,GAAGf,SAAS,GAAGa,IAAI,CAACC,KAAL,CAAY,IAAIC,KAAL,GAAcf,SAAzB,CAAnC;MACA,OAAOiB,MAAP;IACD;EACF;AACF","names":["uniformIntDistributionInternal","rangeSize","rng","MinRng","min","NumValues","max","MaxAllowed","out","next","deltaV","FinalNumValues","NumIterations","MaxAcceptedRandom","Math","floor","value","num","inDiff"],"sourceRoot":"","sources":["../../../../../_src/util/rand/distribution/internals/UniformIntDistributionInternal.ts"],"sourcesContent":[null]}

package/_mjs/util/rand/generator/MersenneTwister.mjs

@@ -0,0 +1,106 @@
+const MAX_INT = 4294967296.0;
+const N = 624;
+const M = 397;
+const UPPER_MASK = 0x80000000;
+const LOWER_MASK = 0x7fffffff;
+const MATRIX_A = 0x9908b0df;
+export class MersenneTwister {
+  constructor(seed) {
+    this.mt = new Array(N);
+    this.mti = N + 1;
+    this.setSeed(seed ?? Date.now());
+  }
+
+  setSeed(seed) {
+    let s;
+    this.mt[0] = seed >>> 0;
+
+    for (this.mti = 1; this.mti < N; this.mti++) {
+      s = this.mt[this.mti - 1] ^ this.mt[this.mti - 1] >>> 30;
+      this.mt[this.mti] = (((s & 0xffff0000) >>> 16) * 1812433253 << 16) + (s & 0x0000ffff) * 1812433253 + this.mti;
+      this.mt[this.mti] >>>= 0;
+    }
+  }
+
+  seedArray(vector) {
+    let i = 1,
+        j = 0,
+        k = N > vector.length ? N : vector.length,
+        s;
+    this.setSeed(19650218);
+
+    for (; k > 0; k--) {
+      s = this.mt[i - 1] ^ this.mt[i - 1] >>> 30;
+      this.mt[i] = (this.mt[i] ^ (((s & 0xffff0000) >>> 16) * 1664525 << 16) + (s & 0x0000ffff) * 1664525) + vector[j] + j;
+      this.mt[i] >>>= 0;
+      i++;
+      j++;
+
+      if (i >= N) {
+        this.mt[0] = this.mt[N - 1];
+        i = 1;
+      }
+
+      if (j >= vector.length) {
+        j = 0;
+      }
+    }
+
+    for (k = N - 1; k; k--) {
+      s = this.mt[i - 1] ^ this.mt[i - 1] >>> 30;
+      this.mt[i] = (this.mt[i] ^ (((s & 0xffff0000) >>> 16) * 1566083941 << 16) + (s & 0x0000ffff) * 1566083941) - i;
+      this.mt[i] >>>= 0;
+      i++;
+
+      if (i >= N) {
+        this.mt[0] = this.mt[N - 1];
+        i = 1;
+      }
+    }
+
+    this.mt[0] = 0x80000000;
+  }
+
+  next() {
+    let y,
+        kk,
+        mag01 = [0, MATRIX_A];
+
+    if (this.mti >= N) {
+      if (this.mti === N + 1) {
+        this.setSeed(5489);
+      }
+
+      for (kk = 0; kk < N - M; kk++) {
+        y = this.mt[kk] & UPPER_MASK | this.mt[kk + 1] & LOWER_MASK;
+        this.mt[kk] = this.mt[kk + M] ^ y >>> 1 ^ mag01[y & 1];
+      }
+
+      for (; kk < N - 1; kk++) {
+        y = this.mt[kk] & UPPER_MASK | this.mt[kk + 1] & LOWER_MASK;
+        this.mt[kk] = this.mt[kk + (M - N)] ^ y >>> 1 ^ mag01[y & 1];
+      }
+
+      y = this.mt[N - 1] & UPPER_MASK | this.mt[0] & LOWER_MASK;
+      this.mt[N - 1] = this.mt[M - 1] ^ y >>> 1 ^ mag01[y & 1];
+      this.mti = 0;
+    }
+
+    y = this.mt[this.mti++];
+    y ^= y >>> 11;
+    y ^= y << 7 & 0x9d2c5680;
+    y ^= y << 15 & 0xefc60000;
+    y ^= y >>> 18;
+    return y >>> 0;
+  }
+
+  min() {
+    return 0;
+  }
+
+  max() {
+    return 0xffffffff;
+  }
+
+}
+//# sourceMappingURL=MersenneTwister.mjs.map

package/_mjs/util/rand/generator/MersenneTwister.mjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"MersenneTwister.mjs","mappings":"AAgDA,MAAMA,OAAO,GAAM,YAAnB;AACA,MAAMC,CAAC,GAAY,GAAnB;AACA,MAAMC,CAAC,GAAY,GAAnB;AACA,MAAMC,UAAU,GAAG,UAAnB;AACA,MAAMC,UAAU,GAAG,UAAnB;AACA,MAAMC,QAAQ,GAAK,UAAnB;AAEA,OAAM,MAAOC,eAAP,CAAsB;EAI1BC,YAAYC,IAAZ,EAAyB;IACvB,KAAKC,EAAL,GAAW,IAAIC,KAAJ,CAAUT,CAAV,CAAX;IACA,KAAKU,GAAL,GAAWV,CAAC,GAAG,CAAf;IACA,KAAKW,OAAL,CAAaJ,IAAI,IAAIK,IAAI,CAACC,GAAL,EAArB;EACD;;EAEDF,OAAO,CAACJ,IAAD,EAAa;IAClB,IAAIO,CAAJ;IAEA,KAAKN,EAAL,CAAQ,CAAR,IAAaD,IAAI,KAAK,CAAtB;;IAEA,KAAK,KAAKG,GAAL,GAAW,CAAhB,EAAmB,KAAKA,GAAL,GAAWV,CAA9B,EAAiC,KAAKU,GAAL,EAAjC,EAA6C;MAC3CI,CAAC,GAAsB,KAAKN,EAAL,CAAQ,KAAKE,GAAL,GAAW,CAAnB,IAA0B,KAAKF,EAAL,CAAQ,KAAKE,GAAL,GAAW,CAAnB,MAA2B,EAA5E;MACA,KAAKF,EAAL,CAAQ,KAAKE,GAAb,IAAuB,CAAE,CAAC,CAACI,CAAC,GAAG,UAAL,MAAqB,EAAtB,IAA4B,UAA7B,IAA4C,EAA7C,IAAmD,CAACA,CAAC,GAAG,UAAL,IAAmB,UAAtE,GAAmF,KAAKJ,GAA/G;MACA,KAAKF,EAAL,CAAQ,KAAKE,GAAb,OAAuB,CAAvB;IACD;EACF;;EAEDK,SAAS,CAACC,MAAD,EAA8B;IACrC,IAAIC,CAAC,GAAG,CAAR;IAAA,IACEC,CAAC,GAAG,CADN;IAAA,IAEEC,CAAC,GAAGnB,CAAC,GAAGgB,MAAM,CAACI,MAAX,GAAoBpB,CAApB,GAAwBgB,MAAM,CAACI,MAFrC;IAAA,IAGEN,CAHF;IAKA,KAAKH,OAAL,CAAa,QAAb;;IAEA,OAAOQ,CAAC,GAAG,CAAX,EAAcA,CAAC,EAAf,EAAmB;MACjBL,CAAC,GAAG,KAAKN,EAAL,CAAQS,CAAC,GAAG,CAAZ,IAAmB,KAAKT,EAAL,CAAQS,CAAC,GAAG,CAAZ,MAAoB,EAA3C;MAEA,KAAKT,EAAL,CAAQS,CAAR,IACE,CAAC,KAAKT,EAAL,CAAQS,CAAR,IAAe,CAAE,CAAC,CAACH,CAAC,GAAG,UAAL,MAAqB,EAAtB,IAA4B,OAA7B,IAAyC,EAA1C,IAAgD,CAACA,CAAC,GAAG,UAAL,IAAmB,OAAnF,IAA+FE,MAAM,CAACE,CAAD,CAArG,GAA4GA,CAD9G;MAEA,KAAKV,EAAL,CAAQS,CAAR,OAAgB,CAAhB;MACAA,CAAC;MACDC,CAAC;;MACD,IAAID,CAAC,IAAIjB,CAAT,EAAY;QACV,KAAKQ,EAAL,CAAQ,CAAR,IAAa,KAAKA,EAAL,CAAQR,CAAC,GAAG,CAAZ,CAAb;QACAiB,CAAC,GAAY,CAAb;MACD;;MACD,IAAIC,CAAC,IAAIF,MAAM,CAACI,MAAhB,EAAwB;QACtBF,CAAC,GAAG,CAAJ;MACD;IACF;;IAED,KAAKC,CAAC,GAAGnB,CAAC,GAAG,CAAb,EAAgBmB,CAAhB,EAAmBA,CAAC,EAApB,EAAwB;MACtBL,CAAC,GAAG,KAAKN,EAAL,CAAQS,CAAC,GAAG,CAAZ,IAAmB,KAAKT,EAAL,CAAQS,CAAC,GAAG,CAAZ,MAAoB,EAA3C;MACA,KAAKT,EAAL,CAAQS,CAAR,IACE,CAAC,KAAKT,EAAL,CAAQS,CAAR,IAAe,CAAE,CAAC,CAACH,CAAC,GAAG,UAAL,MAAqB,EAAtB,IAA4B,UAA7B,IAA4C,EAA7C,IAAmD,CAACA,CAAC,GAAG,UAAL,IAAmB,UAAtF,IAAqGG,CADvG;MAEA,KAAKT,EAAL,CAAQS,CAAR,OAAgB,CAAhB;MACAA,CAAC;;MACD,IAAIA,CAAC,IAAIjB,CAAT,EAAY;QACV,KAAKQ,EAAL,CAAQ,CAAR,IAAa,KAAKA,EAAL,CAAQR,CAAC,GAAG,CAAZ,CAAb;QACAiB,CAAC,GAAY,CAAb;MACD;IACF;;IAED,KAAKT,EAAL,CAAQ,CAAR,IAAa,UAAb;EACD;;EAEDa,IAAI;IACF,IAAIC,CAAJ;IAAA,IACEC,EADF;IAAA,IAEEC,KAAK,GAAqB,CAAC,CAAD,EAAIpB,QAAJ,CAF5B;;IAIA,IAAI,KAAKM,GAAL,IAAYV,CAAhB,EAAmB;MACjB,IAAI,KAAKU,GAAL,KAAaV,CAAC,GAAG,CAArB,EAAwB;QACtB,KAAKW,OAAL,CAAa,IAAb;MACD;;MAED,KAAKY,EAAE,GAAG,CAAV,EAAaA,EAAE,GAAGvB,CAAC,GAAGC,CAAtB,EAAyBsB,EAAE,EAA3B,EAA+B;QAC7BD,CAAC,GAAc,KAAKd,EAAL,CAAQe,EAAR,IAAerB,UAAhB,GAA+B,KAAKM,EAAL,CAAQe,EAAE,GAAG,CAAb,IAAmBpB,UAAhE;QACA,KAAKK,EAAL,CAAQe,EAAR,IAAc,KAAKf,EAAL,CAAQe,EAAE,GAAGtB,CAAb,IAAoBqB,CAAC,KAAK,CAA1B,GAA+BE,KAAK,CAACF,CAAC,GAAG,CAAL,CAAlD;MACD;;MAED,OAAOC,EAAE,GAAGvB,CAAC,GAAG,CAAhB,EAAmBuB,EAAE,EAArB,EAAyB;QACvBD,CAAC,GAAc,KAAKd,EAAL,CAAQe,EAAR,IAAerB,UAAhB,GAA+B,KAAKM,EAAL,CAAQe,EAAE,GAAG,CAAb,IAAmBpB,UAAhE;QACA,KAAKK,EAAL,CAAQe,EAAR,IAAc,KAAKf,EAAL,CAAQe,EAAE,IAAItB,CAAC,GAAGD,CAAR,CAAV,IAA0BsB,CAAC,KAAK,CAAhC,GAAqCE,KAAK,CAACF,CAAC,GAAG,CAAL,CAAxD;MACD;;MAEDA,CAAC,GAAiB,KAAKd,EAAL,CAAQR,CAAC,GAAG,CAAZ,IAAkBE,UAAnB,GAAkC,KAAKM,EAAL,CAAQ,CAAR,IAAcL,UAAjE;MACA,KAAKK,EAAL,CAAQR,CAAC,GAAG,CAAZ,IAAiB,KAAKQ,EAAL,CAAQP,CAAC,GAAG,CAAZ,IAAmBqB,CAAC,KAAK,CAAzB,GAA8BE,KAAK,CAACF,CAAC,GAAG,CAAL,CAApD;MACA,KAAKZ,GAAL,GAAiB,CAAjB;IACD;;IAEDY,CAAC,GAAG,KAAKd,EAAL,CAAQ,KAAKE,GAAL,EAAR,CAAJ;IAEAY,CAAC,IAAIA,CAAC,KAAK,EAAX;IACAA,CAAC,IAAKA,CAAC,IAAI,CAAN,GAAW,UAAhB;IACAA,CAAC,IAAKA,CAAC,IAAI,EAAN,GAAY,UAAjB;IACAA,CAAC,IAAIA,CAAC,KAAK,EAAX;IAEA,OAAOA,CAAC,KAAK,CAAb;EACD;;EAEDG,GAAG;IACD,OAAO,CAAP;EACD;;EAEDC,GAAG;IACD,OAAO,UAAP;EACD;;AAvGyB","names":["MAX_INT","N","M","UPPER_MASK","LOWER_MASK","MATRIX_A","MersenneTwister","constructor","seed","mt","Array","mti","setSeed","Date","now","s","seedArray","vector","i","j","k","length","next","y","kk","mag01","min","max"],"sourceRoot":"","sources":["../../../../_src/util/rand/generator/MersenneTwister.ts"],"sourcesContent":[null]}

package/_mjs/util/rand/generator/RandomGenerator.mjs

@@ -0,0 +1,17 @@
+function generateN(rng, num) {
+  const out = [];
+
+  for (let idx = 0; idx != num; ++idx) {
+    const nextOut = rng.next();
+    out.push(nextOut);
+  }
+
+  return out;
+}
+
+function skipN(rng, num) {
+  generateN(rng, num);
+}
+
+export { generateN, skipN };
+//# sourceMappingURL=RandomGenerator.mjs.map

package/_mjs/util/rand/generator/RandomGenerator.mjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"RandomGenerator.mjs","mappings":"AAQA,SAASA,SAAT,CAAmBC,GAAnB,EAAyCC,GAAzC,EAAoD;EAClD,MAAMC,GAAG,GAAa,EAAtB;;EACA,KAAK,IAAIC,GAAG,GAAG,CAAf,EAAkBA,GAAG,IAAIF,GAAzB,EAA8B,EAAEE,GAAhC,EAAqC;IACnC,MAAMC,OAAO,GAAGJ,GAAG,CAACK,IAAJ,EAAhB;IACAH,GAAG,CAACI,IAAJ,CAASF,OAAT;EACD;;EACD,OAAOF,GAAP;AACD;;AAED,SAASK,KAAT,CAAeP,GAAf,EAAqCC,GAArC,EAAgD;EAC9CF,SAAS,CAACC,GAAD,EAAMC,GAAN,CAAT;AACD;;AAED,SAASF,SAAT,EAAqCQ,KAArC","names":["generateN","rng","num","out","idx","nextOut","next","push","skipN"],"sourceRoot":"","sources":["../../../../_src/util/rand/generator/RandomGenerator.ts"],"sourcesContent":[null]}

package/_mjs/util/rand.mjs

@@ -0,0 +1,9 @@
+import { uniformArrayIntDistribution } from "@fncts/base/util/rand/distribution/UniformArrayIntDistribution";
+import { uniformBigIntDistribution } from "@fncts/base/util/rand/distribution/UniformBigIntDistribution";
+import { uniformIntDistribution } from "@fncts/base/util/rand/distribution/UniformIntDistribution";
+import { MersenneTwister } from "@fncts/base/util/rand/generator/MersenneTwister";
+import { generateN, skipN } from "@fncts/base/util/rand/generator/RandomGenerator";
+export * from "@fncts/base/util/rand/distribution/internals/ArrayInt";
+export * from "@fncts/base/util/rand/Random";
+export { generateN, MersenneTwister, skipN, uniformArrayIntDistribution, uniformBigIntDistribution, uniformIntDistribution };
+//# sourceMappingURL=rand.mjs.map

package/_mjs/util/rand.mjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"rand.mjs","mappings":"AACA,SAASA,2BAAT,QAA4C,gEAA5C;AACA,SAASC,yBAAT,QAA0C,8DAA1C;AACA,SAASC,sBAAT,QAAuC,2DAAvC;AACA,SAASC,eAAT,QAAgC,iDAAhC;AACA,SAASC,SAAT,EAAqCC,KAArC,QAAkD,iDAAlD;AAEA,cAAc,uDAAd;AACA,cAAc,8BAAd;AAEA,SAEED,SAFF,EAGED,eAHF,EAKEE,KALF,EAMEL,2BANF,EAOEC,yBAPF,EAQEC,sBARF","names":["uniformArrayIntDistribution","uniformBigIntDistribution","uniformIntDistribution","MersenneTwister","generateN","skipN"],"sourceRoot":"","sources":["../../_src/util/rand.ts"],"sourcesContent":[null]}

package/_src/collection/Iterable/api/traverseConc.ts

@@ -0,0 +1,40 @@
+import type * as P from "@fncts/base/typeclass";
+
+/**
+ * @tsplus getter fncts.Iterable traverseToConcWithIndex
+ */
+export function traverseToConcWithIndex_<A>(
+  ta: Iterable<A>,
+): <G extends HKT, CG>(
+  G: P.Applicative<G, CG>,
+) => <K, Q, W, X, I, S, R, E, B>(
+  f: (i: number, a: A) => HKT.Kind<G, CG, K, Q, W, X, I, S, R, E, B>,
+) => HKT.Kind<G, CG, K, Q, W, X, I, S, R, E, Conc<B>>;
+export function traverseToConcWithIndex_<A>(ta: Iterable<A>) {
+  return <G>(G: P.Applicative<HKT.F<G>>) =>
+    <K, Q, W, X, I, S, R, E, B>(
+      f: (i: number, a: A) => HKT.FK<G, K, Q, W, X, I, S, R, E, B>,
+    ): HKT.FK<G, K, Q, W, X, I, S, R, E, Conc<B>> => {
+      let output     = G.pure(Conc.empty<B>());
+      const iterator = ta[Symbol.iterator]();
+      let result: IteratorResult<A>;
+      let i          = 0;
+      while (!(result = iterator.next()).done) {
+        output = G.zipWith_(output, f(i, result.value), (bs, b) => bs.append(b));
+        i++;
+      }
+
+      return output;
+    };
+}
+
+/**
+ * @tsplus getter fncts.Iterable traverseToConc
+ */
+export function traverseToConc_<A>(ta: Iterable<A>) {
+  return <G extends HKT, GC>(G: P.Applicative<G, GC>) =>
+    <K, Q, W, X, I, S, R, E, B>(
+      f: (a: A) => HKT.Kind<G, GC, K, Q, W, X, I, S, R, E, B>,
+    ): HKT.Kind<G, GC, K, Q, W, X, I, S, R, E, Conc<B>> =>
+      ta.traverseToConcWithIndex(G)((_, a) => f(a));
+}