diff --git a/.gitignore b/.gitignore index 20e090a..5e1fd31 100644 --- a/.gitignore +++ b/.gitignore @@ -7,3 +7,4 @@ /.psc* /.purs* /.psa* +/.spago/ diff --git a/packages.dhall b/packages.dhall new file mode 100644 index 0000000..7601a71 --- /dev/null +++ b/packages.dhall @@ -0,0 +1,34 @@ +let upstream = + https://github.com/purescript/package-sets/releases/download/psc-0.15.4-20220725/packages.dhall + sha256:e56fbdf33a5afd2a610c81f8b940b413a638931edb41532164e641bb2a9ec29c + +let overrides = + { iterable = + { dependencies = + [ "aff" + , "arrays" + , "effect" + , "foreign" + , "maybe" + , "prelude" + , "refs" + , "spec" + , "tailrec" + ] + , repo = "https://github.com/dstevenson1/purescript-iterable.git" + , version = "c321620a009463accce6e3b17a26d1a21a869d10" + } + , tuples-native = + { dependencies = + [ "prelude" + , "psci-support" + , "typelevel" + , "unsafe-coerce" + , "functions" + ] + , repo = "https://github.com/dstevenson1/purescript-tuples-native.git" + , version = "e1faf3ec6ab402237d89aa3bcb350702987de597" + } + } + +in upstream // overrides diff --git a/spago.dhall b/spago.dhall new file mode 100644 index 0000000..9afac87 --- /dev/null +++ b/spago.dhall @@ -0,0 +1,30 @@ +{- +Welcome to a Spago project! +You can edit this file as you like. + +Need help? See the following resources: +- Spago documentation: https://github.com/purescript/spago +- Dhall language tour: https://docs.dhall-lang.org/tutorials/Language-Tour.html + +When creating a new Spago project, you can use +`spago init --no-comments` or `spago init -C` +to generate this file without the comments in this block. +-} +{ name = "web-urlsearchparams" +, dependencies = + [ "console" + , "effect" + , "foreign-object" + , "iterable" + , "maybe" + , "nullable" + , "prelude" + , "quickcheck" + , "strings" + , "tuples" + , "tuples-native" + , "typelevel" + ] +, packages = ./packages.dhall +, sources = [ "src/**/*.purs", "test/**/*.purs" ] +} diff --git a/src/Web/URLSearchParams.js b/src/Web/URLSearchParams.js index b5b69fb..0df2a33 100644 --- a/src/Web/URLSearchParams.js +++ b/src/Web/URLSearchParams.js @@ -1,53 +1,53 @@ "use strict"; -exports.newImpl = function newImpl (x) { +export const newImpl = function newImpl (x) { return new URLSearchParams(x); }; -exports.appendImpl = function appendImpl (x,k,v) { +export const appendImpl = function appendImpl (x,k,v) { x.append(k,v); }; -exports.setImpl = function setImpl (x,k,v) { +export const setImpl = function setImpl (x,k,v) { x.set(k,v); }; -exports.deleteImpl = function deleteImpl (x,k) { +export const deleteImpl = function deleteImpl (x,k) { x.delete(k); }; -exports.getImpl = function getImpl (x,k) { +export const getImpl = function getImpl (x,k) { return x.get(k); }; -exports.getAllImpl = function getAllImpl (x,k) { +export const getAllImpl = function getAllImpl (x,k) { return x.getAll(k); }; -exports.hasImpl = function hasImpl (x,k) { +export const hasImpl = function hasImpl (x,k) { return x.has(k); }; -exports.entriesImpl = function entriesImpl (x) { +export const entriesImpl = function entriesImpl (x) { return x.entries(); }; -exports.keysImpl = function keysImpl (x) { +export const keysImpl = function keysImpl (x) { return x.keys(); }; -exports.valuesImpl = function valuesImpl (x) { +export const valuesImpl = function valuesImpl (x) { return x.values(); }; -exports.sortImpl = function sortImpl (x) { +export const sortImpl = function sortImpl (x) { x.sort(); }; -exports.toStringImpl = function toStringImpl (x) { +export const toStringImpl = function toStringImpl (x) { return x.toString(); }; -exports.forEachImpl = function forEachImpl (x,f) { +export const forEachImpl = function forEachImpl (x,f) { x.forEach(f); }; diff --git a/src/Web/URLSearchParams.purs b/src/Web/URLSearchParams.purs index 4488479..86b68a9 100644 --- a/src/Web/URLSearchParams.purs +++ b/src/Web/URLSearchParams.purs @@ -4,12 +4,12 @@ module Web.URLSearchParams ) where import Prelude (Unit, (<$>), (<<<), class Show) -import Data.Tuple.Native (T2) import Data.Nullable (Nullable, toMaybe) import Data.Maybe (Maybe) import Data.Iterable (Iterator) -import Foreign.Object (Object) +import Data.Tuple.Native (T2) import Effect (Effect) +import Foreign.Object (Object) import Effect.Unsafe (unsafePerformEffect) import Effect.Uncurried (EffectFn1, EffectFn2, EffectFn3, runEffectFn1, runEffectFn2, runEffectFn3, mkEffectFn2) diff --git a/test.browser.js b/test.browser.js index 51a656a..e69de29 100644 --- a/test.browser.js +++ b/test.browser.js @@ -1,3607 +0,0 @@ -// Generated by purs bundle 0.12.0 -var PS = {}; -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Semigroupoid = function (compose) { - this.compose = compose; - }; - var semigroupoidFn = new Semigroupoid(function (f) { - return function (g) { - return function (x) { - return f(g(x)); - }; - }; - }); - var compose = function (dict) { - return dict.compose; - }; - exports["compose"] = compose; - exports["Semigroupoid"] = Semigroupoid; - exports["semigroupoidFn"] = semigroupoidFn; -})(PS["Control.Semigroupoid"] = PS["Control.Semigroupoid"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Category = function (Semigroupoid0, identity) { - this.Semigroupoid0 = Semigroupoid0; - this.identity = identity; - }; - var identity = function (dict) { - return dict.identity; - }; - var categoryFn = new Category(function () { - return Control_Semigroupoid.semigroupoidFn; - }, function (x) { - return x; - }); - exports["Category"] = Category; - exports["identity"] = identity; - exports["categoryFn"] = categoryFn; -})(PS["Control.Category"] = PS["Control.Category"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var otherwise = true; - exports["otherwise"] = otherwise; -})(PS["Data.Boolean"] = PS["Data.Boolean"] || {}); -(function(exports) { - "use strict"; - - exports.refEq = function (r1) { - return function (r2) { - return r1 === r2; - }; - }; -})(PS["Data.Eq"] = PS["Data.Eq"] || {}); -(function(exports) { - "use strict"; - - exports.unit = {}; -})(PS["Data.Unit"] = PS["Data.Unit"] || {}); -(function(exports) { - "use strict"; - - exports.showIntImpl = function (n) { - return n.toString(); - }; - - exports.showStringImpl = function (s) { - var l = s.length; - return "\"" + s.replace( - /[\0-\x1F\x7F"\\]/g, // eslint-disable-line no-control-regex - function (c, i) { - switch (c) { - case "\"": - case "\\": - return "\\" + c; - case "\x07": return "\\a"; - case "\b": return "\\b"; - case "\f": return "\\f"; - case "\n": return "\\n"; - case "\r": return "\\r"; - case "\t": return "\\t"; - case "\v": return "\\v"; - } - var k = i + 1; - var empty = k < l && s[k] >= "0" && s[k] <= "9" ? "\\&" : ""; - return "\\" + c.charCodeAt(0).toString(10) + empty; - } - ) + "\""; - }; - - exports.showArrayImpl = function (f) { - return function (xs) { - var ss = []; - for (var i = 0, l = xs.length; i < l; i++) { - ss[i] = f(xs[i]); - } - return "[" + ss.join(",") + "]"; - }; - }; - - exports.join = function (separator) { - return function (xs) { - return xs.join(separator); - }; - }; -})(PS["Data.Show"] = PS["Data.Show"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Show"]; - var Data_Symbol = PS["Data.Symbol"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Show = function (show) { - this.show = show; - }; - var showString = new Show($foreign.showStringImpl); - var showInt = new Show($foreign.showIntImpl); - var show = function (dict) { - return dict.show; - }; - var showArray = function (dictShow) { - return new Show($foreign.showArrayImpl(show(dictShow))); - }; - exports["Show"] = Show; - exports["show"] = show; - exports["showInt"] = showInt; - exports["showString"] = showString; - exports["showArray"] = showArray; -})(PS["Data.Show"] = PS["Data.Show"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Unit"]; - var Data_Show = PS["Data.Show"]; - exports["unit"] = $foreign.unit; -})(PS["Data.Unit"] = PS["Data.Unit"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Eq"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var Data_Void = PS["Data.Void"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Eq = function (eq) { - this.eq = eq; - }; - var eqString = new Eq($foreign.refEq); - var eqNumber = new Eq($foreign.refEq); - var eqInt = new Eq($foreign.refEq); - var eqChar = new Eq($foreign.refEq); - var eq = function (dict) { - return dict.eq; - }; - exports["Eq"] = Eq; - exports["eq"] = eq; - exports["eqInt"] = eqInt; - exports["eqNumber"] = eqNumber; - exports["eqChar"] = eqChar; - exports["eqString"] = eqString; -})(PS["Data.Eq"] = PS["Data.Eq"] || {}); -(function(exports) { - "use strict"; - - exports.unsafeCompareImpl = function (lt) { - return function (eq) { - return function (gt) { - return function (x) { - return function (y) { - return x < y ? lt : x === y ? eq : gt; - }; - }; - }; - }; - }; -})(PS["Data.Ord.Unsafe"] = PS["Data.Ord.Unsafe"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Semigroup"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var Data_Void = PS["Data.Void"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Semigroup = function (append) { - this.append = append; - }; - var append = function (dict) { - return dict.append; - }; - exports["Semigroup"] = Semigroup; - exports["append"] = append; -})(PS["Data.Semigroup"] = PS["Data.Semigroup"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Eq = PS["Data.Eq"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Show = PS["Data.Show"]; - var LT = (function () { - function LT() { - - }; - LT.value = new LT(); - return LT; - })(); - var GT = (function () { - function GT() { - - }; - GT.value = new GT(); - return GT; - })(); - var EQ = (function () { - function EQ() { - - }; - EQ.value = new EQ(); - return EQ; - })(); - exports["LT"] = LT; - exports["GT"] = GT; - exports["EQ"] = EQ; -})(PS["Data.Ordering"] = PS["Data.Ordering"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Ord.Unsafe"]; - var Data_Ordering = PS["Data.Ordering"]; - var unsafeCompare = $foreign.unsafeCompareImpl(Data_Ordering.LT.value)(Data_Ordering.EQ.value)(Data_Ordering.GT.value); - exports["unsafeCompare"] = unsafeCompare; -})(PS["Data.Ord.Unsafe"] = PS["Data.Ord.Unsafe"] || {}); -(function(exports) { - "use strict"; - - exports.intSub = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x - y | 0; - }; - }; -})(PS["Data.Ring"] = PS["Data.Ring"] || {}); -(function(exports) { - "use strict"; - - exports.intAdd = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x + y | 0; - }; - }; - - exports.intMul = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x * y | 0; - }; - }; - - exports.numAdd = function (n1) { - return function (n2) { - return n1 + n2; - }; - }; - - exports.numMul = function (n1) { - return function (n2) { - return n1 * n2; - }; - }; -})(PS["Data.Semiring"] = PS["Data.Semiring"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Semiring"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_Row = PS["Type.Data.Row"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Semiring = function (add, mul, one, zero) { - this.add = add; - this.mul = mul; - this.one = one; - this.zero = zero; - }; - var zero = function (dict) { - return dict.zero; - }; - var semiringNumber = new Semiring($foreign.numAdd, $foreign.numMul, 1.0, 0.0); - var semiringInt = new Semiring($foreign.intAdd, $foreign.intMul, 1, 0); - var one = function (dict) { - return dict.one; - }; - var mul = function (dict) { - return dict.mul; - }; - var add = function (dict) { - return dict.add; - }; - exports["Semiring"] = Semiring; - exports["add"] = add; - exports["zero"] = zero; - exports["mul"] = mul; - exports["one"] = one; - exports["semiringInt"] = semiringInt; - exports["semiringNumber"] = semiringNumber; -})(PS["Data.Semiring"] = PS["Data.Semiring"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Ring = function (Semiring0, sub) { - this.Semiring0 = Semiring0; - this.sub = sub; - }; - var sub = function (dict) { - return dict.sub; - }; - var ringInt = new Ring(function () { - return Data_Semiring.semiringInt; - }, $foreign.intSub); - exports["Ring"] = Ring; - exports["sub"] = sub; - exports["ringInt"] = ringInt; -})(PS["Data.Ring"] = PS["Data.Ring"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Ord"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Ord_Unsafe = PS["Data.Ord.Unsafe"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var Data_Void = PS["Data.Void"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Ord = function (Eq0, compare) { - this.Eq0 = Eq0; - this.compare = compare; - }; - var ordNumber = new Ord(function () { - return Data_Eq.eqNumber; - }, Data_Ord_Unsafe.unsafeCompare); - var ordInt = new Ord(function () { - return Data_Eq.eqInt; - }, Data_Ord_Unsafe.unsafeCompare); - var ordChar = new Ord(function () { - return Data_Eq.eqChar; - }, Data_Ord_Unsafe.unsafeCompare); - var compare = function (dict) { - return dict.compare; - }; - var max = function (dictOrd) { - return function (x) { - return function (y) { - var v = compare(dictOrd)(x)(y); - if (v instanceof Data_Ordering.LT) { - return y; - }; - if (v instanceof Data_Ordering.EQ) { - return x; - }; - if (v instanceof Data_Ordering.GT) { - return x; - }; - throw new Error("Failed pattern match at Data.Ord line 128, column 3 - line 131, column 12: " + [ v.constructor.name ]); - }; - }; - }; - var min = function (dictOrd) { - return function (x) { - return function (y) { - var v = compare(dictOrd)(x)(y); - if (v instanceof Data_Ordering.LT) { - return x; - }; - if (v instanceof Data_Ordering.EQ) { - return x; - }; - if (v instanceof Data_Ordering.GT) { - return y; - }; - throw new Error("Failed pattern match at Data.Ord line 119, column 3 - line 122, column 12: " + [ v.constructor.name ]); - }; - }; - }; - exports["Ord"] = Ord; - exports["compare"] = compare; - exports["min"] = min; - exports["max"] = max; - exports["ordInt"] = ordInt; - exports["ordNumber"] = ordNumber; - exports["ordChar"] = ordChar; -})(PS["Data.Ord"] = PS["Data.Ord"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Category = PS["Control.Category"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var flip = function (f) { - return function (b) { - return function (a) { - return f(a)(b); - }; - }; - }; - var $$const = function (a) { - return function (v) { - return a; - }; - }; - exports["flip"] = flip; - exports["const"] = $$const; -})(PS["Data.Function"] = PS["Data.Function"] || {}); -(function(exports) { - "use strict"; - - exports.arrayMap = function (f) { - return function (arr) { - var l = arr.length; - var result = new Array(l); - for (var i = 0; i < l; i++) { - result[i] = f(arr[i]); - } - return result; - }; - }; -})(PS["Data.Functor"] = PS["Data.Functor"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Functor"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Function = PS["Data.Function"]; - var Data_Unit = PS["Data.Unit"]; - var Functor = function (map) { - this.map = map; - }; - var map = function (dict) { - return dict.map; - }; - var mapFlipped = function (dictFunctor) { - return function (fa) { - return function (f) { - return map(dictFunctor)(f)(fa); - }; - }; - }; - var $$void = function (dictFunctor) { - return map(dictFunctor)(Data_Function["const"](Data_Unit.unit)); - }; - var voidRight = function (dictFunctor) { - return function (x) { - return map(dictFunctor)(Data_Function["const"](x)); - }; - }; - var functorArray = new Functor($foreign.arrayMap); - exports["Functor"] = Functor; - exports["map"] = map; - exports["mapFlipped"] = mapFlipped; - exports["void"] = $$void; - exports["voidRight"] = voidRight; - exports["functorArray"] = functorArray; -})(PS["Data.Functor"] = PS["Data.Functor"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Control.Apply"]; - var Control_Category = PS["Control.Category"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Apply = function (Functor0, apply) { - this.Functor0 = Functor0; - this.apply = apply; - }; - var apply = function (dict) { - return dict.apply; - }; - var applySecond = function (dictApply) { - return function (a) { - return function (b) { - return apply(dictApply)(Data_Functor.map(dictApply.Functor0())(Data_Function["const"](Control_Category.identity(Control_Category.categoryFn)))(a))(b); - }; - }; - }; - exports["Apply"] = Apply; - exports["apply"] = apply; - exports["applySecond"] = applySecond; -})(PS["Control.Apply"] = PS["Control.Apply"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Apply = PS["Control.Apply"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Unit = PS["Data.Unit"]; - var Applicative = function (Apply0, pure) { - this.Apply0 = Apply0; - this.pure = pure; - }; - var pure = function (dict) { - return dict.pure; - }; - var liftA1 = function (dictApplicative) { - return function (f) { - return function (a) { - return Control_Apply.apply(dictApplicative.Apply0())(pure(dictApplicative)(f))(a); - }; - }; - }; - exports["Applicative"] = Applicative; - exports["pure"] = pure; - exports["liftA1"] = liftA1; -})(PS["Control.Applicative"] = PS["Control.Applicative"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Control.Bind"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Category = PS["Control.Category"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Unit = PS["Data.Unit"]; - var Bind = function (Apply0, bind) { - this.Apply0 = Apply0; - this.bind = bind; - }; - var Discard = function (discard) { - this.discard = discard; - }; - var discard = function (dict) { - return dict.discard; - }; - var bind = function (dict) { - return dict.bind; - }; - var bindFlipped = function (dictBind) { - return Data_Function.flip(bind(dictBind)); - }; - var discardUnit = new Discard(function (dictBind) { - return bind(dictBind); - }); - exports["Bind"] = Bind; - exports["bind"] = bind; - exports["bindFlipped"] = bindFlipped; - exports["Discard"] = Discard; - exports["discard"] = discard; - exports["discardUnit"] = discardUnit; -})(PS["Control.Bind"] = PS["Control.Bind"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Unit = PS["Data.Unit"]; - var Monad = function (Applicative0, Bind1) { - this.Applicative0 = Applicative0; - this.Bind1 = Bind1; - }; - var ap = function (dictMonad) { - return function (f) { - return function (a) { - return Control_Bind.bind(dictMonad.Bind1())(f)(function (v) { - return Control_Bind.bind(dictMonad.Bind1())(a)(function (v1) { - return Control_Applicative.pure(dictMonad.Applicative0())(v(v1)); - }); - }); - }; - }; - }; - exports["Monad"] = Monad; - exports["ap"] = ap; -})(PS["Control.Monad"] = PS["Control.Monad"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Prelude = PS["Prelude"]; - var MonadGen = function (Monad0, chooseBool, chooseFloat, chooseInt, resize, sized) { - this.Monad0 = Monad0; - this.chooseBool = chooseBool; - this.chooseFloat = chooseFloat; - this.chooseInt = chooseInt; - this.resize = resize; - this.sized = sized; - }; - var sized = function (dict) { - return dict.sized; - }; - var resize = function (dict) { - return dict.resize; - }; - var chooseInt = function (dict) { - return dict.chooseInt; - }; - var chooseFloat = function (dict) { - return dict.chooseFloat; - }; - var chooseBool = function (dict) { - return dict.chooseBool; - }; - exports["chooseBool"] = chooseBool; - exports["chooseFloat"] = chooseFloat; - exports["chooseInt"] = chooseInt; - exports["resize"] = resize; - exports["sized"] = sized; - exports["MonadGen"] = MonadGen; -})(PS["Control.Monad.Gen.Class"] = PS["Control.Monad.Gen.Class"] || {}); -(function(exports) { - "use strict"; - - exports.topInt = 2147483647; - exports.bottomInt = -2147483648; - - exports.topChar = String.fromCharCode(65535); - exports.bottomChar = String.fromCharCode(0); -})(PS["Data.Bounded"] = PS["Data.Bounded"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Bounded"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Unit = PS["Data.Unit"]; - var Bounded = function (Ord0, bottom, top) { - this.Ord0 = Ord0; - this.bottom = bottom; - this.top = top; - }; - var top = function (dict) { - return dict.top; - }; - var boundedInt = new Bounded(function () { - return Data_Ord.ordInt; - }, $foreign.bottomInt, $foreign.topInt); - var boundedChar = new Bounded(function () { - return Data_Ord.ordChar; - }, $foreign.bottomChar, $foreign.topChar); - var bottom = function (dict) { - return dict.bottom; - }; - exports["Bounded"] = Bounded; - exports["bottom"] = bottom; - exports["top"] = top; - exports["boundedInt"] = boundedInt; - exports["boundedChar"] = boundedChar; -})(PS["Data.Bounded"] = PS["Data.Bounded"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var CommutativeRing = function (Ring0) { - this.Ring0 = Ring0; - }; - var commutativeRingInt = new CommutativeRing(function () { - return Data_Ring.ringInt; - }); - exports["CommutativeRing"] = CommutativeRing; - exports["commutativeRingInt"] = commutativeRingInt; -})(PS["Data.CommutativeRing"] = PS["Data.CommutativeRing"] || {}); -(function(exports) { - "use strict"; - - exports.intDegree = function (x) { - return Math.min(Math.abs(x), 2147483647); - }; - - // See the Euclidean definition in - // https://en.m.wikipedia.org/wiki/Modulo_operation. - exports.intDiv = function (x) { - return function (y) { - if (y === 0) return 0; - return y > 0 ? Math.floor(x / y) : -Math.floor(x / -y); - }; - }; - - exports.intMod = function (x) { - return function (y) { - if (y === 0) return 0; - var yy = Math.abs(y); - return ((x % yy) + yy) % yy; - }; - }; -})(PS["Data.EuclideanRing"] = PS["Data.EuclideanRing"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.EuclideanRing"]; - var Data_BooleanAlgebra = PS["Data.BooleanAlgebra"]; - var Data_CommutativeRing = PS["Data.CommutativeRing"]; - var Data_Eq = PS["Data.Eq"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var EuclideanRing = function (CommutativeRing0, degree, div, mod) { - this.CommutativeRing0 = CommutativeRing0; - this.degree = degree; - this.div = div; - this.mod = mod; - }; - var mod = function (dict) { - return dict.mod; - }; - var euclideanRingInt = new EuclideanRing(function () { - return Data_CommutativeRing.commutativeRingInt; - }, $foreign.intDegree, $foreign.intDiv, $foreign.intMod); - var div = function (dict) { - return dict.div; - }; - var degree = function (dict) { - return dict.degree; - }; - exports["EuclideanRing"] = EuclideanRing; - exports["degree"] = degree; - exports["div"] = div; - exports["mod"] = mod; - exports["euclideanRingInt"] = euclideanRingInt; -})(PS["Data.EuclideanRing"] = PS["Data.EuclideanRing"] || {}); -(function(exports) { - "use strict"; - - exports.foldrArray = function (f) { - return function (init) { - return function (xs) { - var acc = init; - var len = xs.length; - for (var i = len - 1; i >= 0; i--) { - acc = f(xs[i])(acc); - } - return acc; - }; - }; - }; - - exports.foldlArray = function (f) { - return function (init) { - return function (xs) { - var acc = init; - var len = xs.length; - for (var i = 0; i < len; i++) { - acc = f(acc)(xs[i]); - } - return acc; - }; - }; - }; -})(PS["Data.Foldable"] = PS["Data.Foldable"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_EuclideanRing = PS["Data.EuclideanRing"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Symbol = PS["Data.Symbol"]; - var Data_Unit = PS["Data.Unit"]; - var Record_Unsafe = PS["Record.Unsafe"]; - var Type_Data_RowList = PS["Type.Data.RowList"]; - var Monoid = function (Semigroup0, mempty) { - this.Semigroup0 = Semigroup0; - this.mempty = mempty; - }; - var mempty = function (dict) { - return dict.mempty; - }; - exports["Monoid"] = Monoid; - exports["mempty"] = mempty; -})(PS["Data.Monoid"] = PS["Data.Monoid"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Category = PS["Control.Category"]; - var Control_Extend = PS["Control.Extend"]; - var Control_Monad = PS["Control.Monad"]; - var Control_MonadZero = PS["Control.MonadZero"]; - var Control_Plus = PS["Control.Plus"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Functor_Invariant = PS["Data.Functor.Invariant"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Show = PS["Data.Show"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var Nothing = (function () { - function Nothing() { - - }; - Nothing.value = new Nothing(); - return Nothing; - })(); - var Just = (function () { - function Just(value0) { - this.value0 = value0; - }; - Just.create = function (value0) { - return new Just(value0); - }; - return Just; - })(); - var maybe = function (v) { - return function (v1) { - return function (v2) { - if (v2 instanceof Nothing) { - return v; - }; - if (v2 instanceof Just) { - return v1(v2.value0); - }; - throw new Error("Failed pattern match at Data.Maybe line 217, column 1 - line 217, column 51: " + [ v.constructor.name, v1.constructor.name, v2.constructor.name ]); - }; - }; - }; - var isNothing = maybe(true)(Data_Function["const"](false)); - var functorMaybe = new Data_Functor.Functor(function (v) { - return function (v1) { - if (v1 instanceof Just) { - return new Just(v(v1.value0)); - }; - return Nothing.value; - }; - }); - var fromMaybe = function (a) { - return maybe(a)(Control_Category.identity(Control_Category.categoryFn)); - }; - var fromJust = function (dictPartial) { - return function (v) { - var $__unused = function (dictPartial1) { - return function ($dollar35) { - return $dollar35; - }; - }; - return $__unused(dictPartial)((function () { - if (v instanceof Just) { - return v.value0; - }; - throw new Error("Failed pattern match at Data.Maybe line 268, column 1 - line 268, column 46: " + [ v.constructor.name ]); - })()); - }; - }; - exports["Nothing"] = Nothing; - exports["Just"] = Just; - exports["maybe"] = maybe; - exports["fromMaybe"] = fromMaybe; - exports["isNothing"] = isNothing; - exports["fromJust"] = fromJust; - exports["functorMaybe"] = functorMaybe; -})(PS["Data.Maybe"] = PS["Data.Maybe"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Monoid_Additive = PS["Data.Monoid.Additive"]; - var Data_Monoid_Conj = PS["Data.Monoid.Conj"]; - var Data_Monoid_Disj = PS["Data.Monoid.Disj"]; - var Data_Monoid_Dual = PS["Data.Monoid.Dual"]; - var Data_Monoid_Endo = PS["Data.Monoid.Endo"]; - var Data_Monoid_Multiplicative = PS["Data.Monoid.Multiplicative"]; - var Data_Semigroup_First = PS["Data.Semigroup.First"]; - var Data_Semigroup_Last = PS["Data.Semigroup.Last"]; - var Prelude = PS["Prelude"]; - var Newtype = function (unwrap, wrap) { - this.unwrap = unwrap; - this.wrap = wrap; - }; - var wrap = function (dict) { - return dict.wrap; - }; - var unwrap = function (dict) { - return dict.unwrap; - }; - exports["unwrap"] = unwrap; - exports["wrap"] = wrap; - exports["Newtype"] = Newtype; -})(PS["Data.Newtype"] = PS["Data.Newtype"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Extend = PS["Control.Extend"]; - var Control_Monad = PS["Control.Monad"]; - var Control_MonadZero = PS["Control.MonadZero"]; - var Control_Plus = PS["Control.Plus"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Functor_Invariant = PS["Data.Functor.Invariant"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Show = PS["Data.Show"]; - var Prelude = PS["Prelude"]; - var semigroupFirst = new Data_Semigroup.Semigroup(function (v) { - return function (v1) { - if (v instanceof Data_Maybe.Just) { - return v; - }; - return v1; - }; - }); - var monoidFirst = new Data_Monoid.Monoid(function () { - return semigroupFirst; - }, Data_Maybe.Nothing.value); - exports["semigroupFirst"] = semigroupFirst; - exports["monoidFirst"] = monoidFirst; -})(PS["Data.Maybe.First"] = PS["Data.Maybe.First"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Foldable"]; - var Control_Alt = PS["Control.Alt"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Category = PS["Control.Category"]; - var Control_Plus = PS["Control.Plus"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Maybe_First = PS["Data.Maybe.First"]; - var Data_Maybe_Last = PS["Data.Maybe.Last"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Monoid_Additive = PS["Data.Monoid.Additive"]; - var Data_Monoid_Conj = PS["Data.Monoid.Conj"]; - var Data_Monoid_Disj = PS["Data.Monoid.Disj"]; - var Data_Monoid_Dual = PS["Data.Monoid.Dual"]; - var Data_Monoid_Endo = PS["Data.Monoid.Endo"]; - var Data_Monoid_Multiplicative = PS["Data.Monoid.Multiplicative"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var Foldable = function (foldMap, foldl, foldr) { - this.foldMap = foldMap; - this.foldl = foldl; - this.foldr = foldr; - }; - var foldr = function (dict) { - return dict.foldr; - }; - var traverse_ = function (dictApplicative) { - return function (dictFoldable) { - return function (f) { - return foldr(dictFoldable)(function ($195) { - return Control_Apply.applySecond(dictApplicative.Apply0())(f($195)); - })(Control_Applicative.pure(dictApplicative)(Data_Unit.unit)); - }; - }; - }; - var for_ = function (dictApplicative) { - return function (dictFoldable) { - return Data_Function.flip(traverse_(dictApplicative)(dictFoldable)); - }; - }; - var foldl = function (dict) { - return dict.foldl; - }; - var length = function (dictFoldable) { - return function (dictSemiring) { - return foldl(dictFoldable)(function (c) { - return function (v) { - return Data_Semiring.add(dictSemiring)(Data_Semiring.one(dictSemiring))(c); - }; - })(Data_Semiring.zero(dictSemiring)); - }; - }; - var foldableMaybe = new Foldable(function (dictMonoid) { - return function (f) { - return function (v) { - if (v instanceof Data_Maybe.Nothing) { - return Data_Monoid.mempty(dictMonoid); - }; - if (v instanceof Data_Maybe.Just) { - return f(v.value0); - }; - throw new Error("Failed pattern match at Data.Foldable line 129, column 1 - line 129, column 41: " + [ f.constructor.name, v.constructor.name ]); - }; - }; - }, function (v) { - return function (z) { - return function (v1) { - if (v1 instanceof Data_Maybe.Nothing) { - return z; - }; - if (v1 instanceof Data_Maybe.Just) { - return v(z)(v1.value0); - }; - throw new Error("Failed pattern match at Data.Foldable line 129, column 1 - line 129, column 41: " + [ v.constructor.name, z.constructor.name, v1.constructor.name ]); - }; - }; - }, function (v) { - return function (z) { - return function (v1) { - if (v1 instanceof Data_Maybe.Nothing) { - return z; - }; - if (v1 instanceof Data_Maybe.Just) { - return v(v1.value0)(z); - }; - throw new Error("Failed pattern match at Data.Foldable line 129, column 1 - line 129, column 41: " + [ v.constructor.name, z.constructor.name, v1.constructor.name ]); - }; - }; - }); - var foldMapDefaultR = function (dictFoldable) { - return function (dictMonoid) { - return function (f) { - return foldr(dictFoldable)(function (x) { - return function (acc) { - return Data_Semigroup.append(dictMonoid.Semigroup0())(f(x))(acc); - }; - })(Data_Monoid.mempty(dictMonoid)); - }; - }; - }; - var foldableArray = new Foldable(function (dictMonoid) { - return foldMapDefaultR(foldableArray)(dictMonoid); - }, $foreign.foldlArray, $foreign.foldrArray); - var foldMap = function (dict) { - return dict.foldMap; - }; - var foldableFirst = new Foldable(function (dictMonoid) { - return function (f) { - return function (v) { - return foldMap(foldableMaybe)(dictMonoid)(f)(v); - }; - }; - }, function (f) { - return function (z) { - return function (v) { - return foldl(foldableMaybe)(f)(z)(v); - }; - }; - }, function (f) { - return function (z) { - return function (v) { - return foldr(foldableMaybe)(f)(z)(v); - }; - }; - }); - exports["Foldable"] = Foldable; - exports["foldr"] = foldr; - exports["foldl"] = foldl; - exports["foldMap"] = foldMap; - exports["foldMapDefaultR"] = foldMapDefaultR; - exports["traverse_"] = traverse_; - exports["for_"] = for_; - exports["length"] = length; - exports["foldableArray"] = foldableArray; - exports["foldableMaybe"] = foldableMaybe; - exports["foldableFirst"] = foldableFirst; -})(PS["Data.Foldable"] = PS["Data.Foldable"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Apply = PS["Control.Apply"]; - var Control_Category = PS["Control.Category"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Monoid_Dual = PS["Data.Monoid.Dual"]; - var Data_Monoid_Multiplicative = PS["Data.Monoid.Multiplicative"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord_Max = PS["Data.Ord.Max"]; - var Data_Ord_Min = PS["Data.Ord.Min"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var Foldable1 = function (Foldable0, fold1, foldMap1) { - this.Foldable0 = Foldable0; - this.fold1 = fold1; - this.foldMap1 = foldMap1; - }; - var foldMap1 = function (dict) { - return dict.foldMap1; - }; - var fold1 = function (dict) { - return dict.fold1; - }; - exports["Foldable1"] = Foldable1; - exports["foldMap1"] = foldMap1; - exports["fold1"] = fold1; -})(PS["Data.Semigroup.Foldable"] = PS["Data.Semigroup.Foldable"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Comonad = PS["Control.Comonad"]; - var Control_Extend = PS["Control.Extend"]; - var Control_Lazy = PS["Control.Lazy"]; - var Control_Monad = PS["Control.Monad"]; - var Data_BooleanAlgebra = PS["Data.BooleanAlgebra"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_CommutativeRing = PS["Data.CommutativeRing"]; - var Data_Eq = PS["Data.Eq"]; - var Data_EuclideanRing = PS["Data.EuclideanRing"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Functor_Invariant = PS["Data.Functor.Invariant"]; - var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"]; - var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var Identity = function (x) { - return x; - }; - var newtypeIdentity = new Data_Newtype.Newtype(function (n) { - return n; - }, Identity); - var functorIdentity = new Data_Functor.Functor(function (f) { - return function (m) { - return f(m); - }; - }); - var applyIdentity = new Control_Apply.Apply(function () { - return functorIdentity; - }, function (v) { - return function (v1) { - return v(v1); - }; - }); - var bindIdentity = new Control_Bind.Bind(function () { - return applyIdentity; - }, function (v) { - return function (f) { - return f(v); - }; - }); - var applicativeIdentity = new Control_Applicative.Applicative(function () { - return applyIdentity; - }, Identity); - var monadIdentity = new Control_Monad.Monad(function () { - return applicativeIdentity; - }, function () { - return bindIdentity; - }); - exports["Identity"] = Identity; - exports["newtypeIdentity"] = newtypeIdentity; - exports["functorIdentity"] = functorIdentity; - exports["applyIdentity"] = applyIdentity; - exports["applicativeIdentity"] = applicativeIdentity; - exports["bindIdentity"] = bindIdentity; - exports["monadIdentity"] = monadIdentity; -})(PS["Data.Identity"] = PS["Data.Identity"] || {}); -(function(exports) { - "use strict"; - - exports.pureE = function (a) { - return function () { - return a; - }; - }; - - exports.bindE = function (a) { - return function (f) { - return function () { - return f(a())(); - }; - }; - }; -})(PS["Effect"] = PS["Effect"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad = PS["Control.Monad"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Prelude = PS["Prelude"]; - var monadEffect = new Control_Monad.Monad(function () { - return applicativeEffect; - }, function () { - return bindEffect; - }); - var bindEffect = new Control_Bind.Bind(function () { - return applyEffect; - }, $foreign.bindE); - var applyEffect = new Control_Apply.Apply(function () { - return functorEffect; - }, Control_Monad.ap(monadEffect)); - var applicativeEffect = new Control_Applicative.Applicative(function () { - return applyEffect; - }, $foreign.pureE); - var functorEffect = new Data_Functor.Functor(Control_Applicative.liftA1(applicativeEffect)); - exports["functorEffect"] = functorEffect; - exports["applyEffect"] = applyEffect; - exports["applicativeEffect"] = applicativeEffect; - exports["bindEffect"] = bindEffect; - exports["monadEffect"] = monadEffect; -})(PS["Effect"] = PS["Effect"] || {}); -(function(exports) { - "use strict"; - - exports.new = function (val) { - return function () { - return { value: val }; - }; - }; - - exports.read = function (ref) { - return function () { - return ref.value; - }; - }; - - exports["modify'"] = function (f) { - return function (ref) { - return function () { - var t = f(ref.value); - ref.value = t.state; - return t.value; - }; - }; - }; - - exports.write = function (val) { - return function (ref) { - return function () { - ref.value = val; - return {}; - }; - }; - }; -})(PS["Effect.Ref"] = PS["Effect.Ref"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect.Ref"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Effect = PS["Effect"]; - var Prelude = PS["Prelude"]; - var modify = function (f) { - return $foreign["modify'"](function (s) { - var s$prime = f(s); - return { - state: s$prime, - value: s$prime - }; - }); - }; - exports["modify"] = modify; - exports["new"] = $foreign["new"]; - exports["read"] = $foreign.read; - exports["write"] = $foreign.write; -})(PS["Effect.Ref"] = PS["Effect.Ref"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad = PS["Control.Monad"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Bifunctor = PS["Data.Bifunctor"]; - var Data_Either = PS["Data.Either"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Identity = PS["Data.Identity"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Unit = PS["Data.Unit"]; - var Effect = PS["Effect"]; - var Effect_Ref = PS["Effect.Ref"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Loop = (function () { - function Loop(value0) { - this.value0 = value0; - }; - Loop.create = function (value0) { - return new Loop(value0); - }; - return Loop; - })(); - var Done = (function () { - function Done(value0) { - this.value0 = value0; - }; - Done.create = function (value0) { - return new Done(value0); - }; - return Done; - })(); - var MonadRec = function (Monad0, tailRecM) { - this.Monad0 = Monad0; - this.tailRecM = tailRecM; - }; - var tailRecM = function (dict) { - return dict.tailRecM; - }; - var tailRec = function (f) { - var go = function ($copy_v) { - var $tco_done = false; - var $tco_result; - function $tco_loop(v) { - if (v instanceof Loop) { - $copy_v = f(v.value0); - return; - }; - if (v instanceof Done) { - $tco_done = true; - return v.value0; - }; - throw new Error("Failed pattern match at Control.Monad.Rec.Class line 91, column 3 - line 91, column 25: " + [ v.constructor.name ]); - }; - while (!$tco_done) { - $tco_result = $tco_loop($copy_v); - }; - return $tco_result; - }; - return function ($53) { - return go(f($53)); - }; - }; - var monadRecIdentity = new MonadRec(function () { - return Data_Identity.monadIdentity; - }, function (f) { - var runIdentity = function (v) { - return v; - }; - return function ($54) { - return Data_Identity.Identity(tailRec(function ($55) { - return runIdentity(f($55)); - })($54)); - }; - }); - var monadRecEffect = new MonadRec(function () { - return Effect.monadEffect; - }, function (f) { - return function (a) { - var fromDone = function (v) { - var $__unused = function (dictPartial1) { - return function ($dollar19) { - return $dollar19; - }; - }; - return $__unused()((function () { - if (v instanceof Done) { - return v.value0; - }; - throw new Error("Failed pattern match at Control.Monad.Rec.Class line 111, column 30 - line 111, column 44: " + [ v.constructor.name ]); - })()); - }; - return function __do() { - var v = Control_Bind.bindFlipped(Effect.bindEffect)(Effect_Ref["new"])(f(a))(); - (function () { - while (!(function __do() { - var v1 = Effect_Ref.read(v)(); - if (v1 instanceof Loop) { - var v2 = f(v1.value0)(); - var v3 = Effect_Ref.write(v2)(v)(); - return false; - }; - if (v1 instanceof Done) { - return true; - }; - throw new Error("Failed pattern match at Control.Monad.Rec.Class line 102, column 22 - line 107, column 28: " + [ v1.constructor.name ]); - })()) { - - }; - return {}; - })(); - return Data_Functor.map(Effect.functorEffect)(fromDone)(Effect_Ref.read(v))(); - }; - }; - }); - exports["Loop"] = Loop; - exports["Done"] = Done; - exports["MonadRec"] = MonadRec; - exports["tailRec"] = tailRec; - exports["tailRecM"] = tailRecM; - exports["monadRecIdentity"] = monadRecIdentity; - exports["monadRecEffect"] = monadRecEffect; -})(PS["Control.Monad.Rec.Class"] = PS["Control.Monad.Rec.Class"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Biapplicative = PS["Control.Biapplicative"]; - var Control_Biapply = PS["Control.Biapply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Comonad = PS["Control.Comonad"]; - var Control_Extend = PS["Control.Extend"]; - var Control_Lazy = PS["Control.Lazy"]; - var Control_Monad = PS["Control.Monad"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Bifoldable = PS["Data.Bifoldable"]; - var Data_Bifunctor = PS["Data.Bifunctor"]; - var Data_Bitraversable = PS["Data.Bitraversable"]; - var Data_BooleanAlgebra = PS["Data.BooleanAlgebra"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_CommutativeRing = PS["Data.CommutativeRing"]; - var Data_Distributive = PS["Data.Distributive"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Functor_Invariant = PS["Data.Functor.Invariant"]; - var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Maybe_First = PS["Data.Maybe.First"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"]; - var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var Type_Equality = PS["Type.Equality"]; - var Tuple = (function () { - function Tuple(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - Tuple.create = function (value0) { - return function (value1) { - return new Tuple(value0, value1); - }; - }; - return Tuple; - })(); - var snd = function (v) { - return v.value1; - }; - var showTuple = function (dictShow) { - return function (dictShow1) { - return new Data_Show.Show(function (v) { - return "(Tuple " + (Data_Show.show(dictShow)(v.value0) + (" " + (Data_Show.show(dictShow1)(v.value1) + ")"))); - }); - }; - }; - var functorTuple = new Data_Functor.Functor(function (f) { - return function (m) { - return new Tuple(m.value0, f(m.value1)); - }; - }); - var fst = function (v) { - return v.value0; - }; - exports["Tuple"] = Tuple; - exports["fst"] = fst; - exports["snd"] = snd; - exports["showTuple"] = showTuple; - exports["functorTuple"] = functorTuple; -})(PS["Data.Tuple"] = PS["Data.Tuple"] || {}); -(function(exports) { - "use strict"; - - exports.unfoldrArrayImpl = function (isNothing) { - return function (fromJust) { - return function (fst) { - return function (snd) { - return function (f) { - return function (b) { - var result = []; - var value = b; - while (true) { // eslint-disable-line no-constant-condition - var maybe = f(value); - if (isNothing(maybe)) return result; - var tuple = fromJust(maybe); - result.push(fst(tuple)); - value = snd(tuple); - } - }; - }; - }; - }; - }; - }; -})(PS["Data.Unfoldable"] = PS["Data.Unfoldable"] || {}); -(function(exports) { - "use strict"; - - exports.unfoldr1ArrayImpl = function (isNothing) { - return function (fromJust) { - return function (fst) { - return function (snd) { - return function (f) { - return function (b) { - var result = []; - var value = b; - while (true) { // eslint-disable-line no-constant-condition - var tuple = f(value); - result.push(fst(tuple)); - var maybe = snd(tuple); - if (isNothing(maybe)) return result; - value = fromJust(maybe); - } - }; - }; - }; - }; - }; - }; -})(PS["Data.Unfoldable1"] = PS["Data.Unfoldable1"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Unfoldable1"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Tuple = PS["Data.Tuple"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Unfoldable1 = function (unfoldr1) { - this.unfoldr1 = unfoldr1; - }; - var unfoldr1 = function (dict) { - return dict.unfoldr1; - }; - var unfoldable1Array = new Unfoldable1($foreign.unfoldr1ArrayImpl(Data_Maybe.isNothing)(Data_Maybe.fromJust())(Data_Tuple.fst)(Data_Tuple.snd)); - exports["Unfoldable1"] = Unfoldable1; - exports["unfoldr1"] = unfoldr1; - exports["unfoldable1Array"] = unfoldable1Array; -})(PS["Data.Unfoldable1"] = PS["Data.Unfoldable1"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Unfoldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable1 = PS["Data.Unfoldable1"]; - var Data_Unit = PS["Data.Unit"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Unfoldable = function (Unfoldable10, unfoldr) { - this.Unfoldable10 = Unfoldable10; - this.unfoldr = unfoldr; - }; - var unfoldr = function (dict) { - return dict.unfoldr; - }; - var unfoldableArray = new Unfoldable(function () { - return Data_Unfoldable1.unfoldable1Array; - }, $foreign.unfoldrArrayImpl(Data_Maybe.isNothing)(Data_Maybe.fromJust())(Data_Tuple.fst)(Data_Tuple.snd)); - exports["Unfoldable"] = Unfoldable; - exports["unfoldr"] = unfoldr; - exports["unfoldableArray"] = unfoldableArray; -})(PS["Data.Unfoldable"] = PS["Data.Unfoldable"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad_Gen_Class = PS["Control.Monad.Gen.Class"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Monoid_Additive = PS["Data.Monoid.Additive"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var Cons = (function () { - function Cons(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - Cons.create = function (value0) { - return function (value1) { - return new Cons(value0, value1); - }; - }; - return Cons; - })(); - var Nil = (function () { - function Nil() { - - }; - Nil.value = new Nil(); - return Nil; - })(); - var AtIndex = function (x) { - return x; - }; - var unfoldable = function (dictMonadRec) { - return function (dictMonadGen) { - return function (dictUnfoldable) { - return function (gen) { - var unfold = function (v) { - if (v instanceof Nil) { - return Data_Maybe.Nothing.value; - }; - if (v instanceof Cons) { - return new Data_Maybe.Just(new Data_Tuple.Tuple(v.value0, v.value1)); - }; - throw new Error("Failed pattern match at Control.Monad.Gen line 101, column 12 - line 103, column 35: " + [ v.constructor.name ]); - }; - var loopGen = function (v) { - if (v.value1 === 0) { - return Control_Applicative.pure((dictMonadGen.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Done(v.value0)); - }; - return Control_Bind.bind((dictMonadGen.Monad0()).Bind1())(gen)(function (v1) { - return Control_Applicative.pure((dictMonadGen.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Loop(new Data_Tuple.Tuple(new Cons(v1, v.value0), v.value1 - 1 | 0))); - }); - }; - return Data_Functor.map((((dictMonadGen.Monad0()).Bind1()).Apply0()).Functor0())(Data_Unfoldable.unfoldr(dictUnfoldable)(unfold))(Control_Monad_Gen_Class.sized(dictMonadGen)(function ($61) { - return Control_Monad_Rec_Class.tailRecM(dictMonadRec)(loopGen)(Data_Tuple.Tuple.create(Nil.value)($61)); - })); - }; - }; - }; - }; - var semigroupAtIndex = new Data_Semigroup.Semigroup(function (v) { - return function (v1) { - return function (i) { - var $48 = i <= 0; - if ($48) { - return v(i); - }; - return v1(i - 1 | 0); - }; - }; - }); - var getAtIndex = function (v) { - return v; - }; - var atIndex = function ($63) { - return AtIndex(Data_Function["const"]($63)); - }; - var fromIndex = function (dictFoldable1) { - return function (i) { - return function (xs) { - return getAtIndex(Data_Semigroup_Foldable.foldMap1(dictFoldable1)(semigroupAtIndex)(atIndex)(xs))(i); - }; - }; - }; - var oneOf = function (dictMonadGen) { - return function (dictFoldable1) { - return function (xs) { - return Control_Bind.bind((dictMonadGen.Monad0()).Bind1())(Control_Monad_Gen_Class.chooseInt(dictMonadGen)(0)(Data_Foldable.length(dictFoldable1.Foldable0())(Data_Semiring.semiringInt)(xs) - 1 | 0))(function (v) { - return fromIndex(dictFoldable1)(v)(xs); - }); - }; - }; - }; - exports["oneOf"] = oneOf; - exports["unfoldable"] = unfoldable; -})(PS["Control.Monad.Gen"] = PS["Control.Monad.Gen"] || {}); -(function(exports) { - "use strict"; - - exports.map_ = function (f) { - return function (a) { - return function () { - return f(a()); - }; - }; - }; - - exports.pure_ = function (a) { - return function () { - return a; - }; - }; - - exports.bind_ = function (a) { - return function (f) { - return function () { - return f(a())(); - }; - }; - }; -})(PS["Control.Monad.ST.Internal"] = PS["Control.Monad.ST.Internal"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Control.Monad.ST.Internal"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad = PS["Control.Monad"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Unit = PS["Data.Unit"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var functorST = new Data_Functor.Functor($foreign.map_); - var monadST = new Control_Monad.Monad(function () { - return applicativeST; - }, function () { - return bindST; - }); - var bindST = new Control_Bind.Bind(function () { - return applyST; - }, $foreign.bind_); - var applyST = new Control_Apply.Apply(function () { - return functorST; - }, Control_Monad.ap(monadST)); - var applicativeST = new Control_Applicative.Applicative(function () { - return applyST; - }, $foreign.pure_); - exports["functorST"] = functorST; - exports["applyST"] = applyST; - exports["applicativeST"] = applicativeST; - exports["bindST"] = bindST; - exports["monadST"] = monadST; -})(PS["Control.Monad.ST.Internal"] = PS["Control.Monad.ST.Internal"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var MonadState = function (Monad0, state) { - this.Monad0 = Monad0; - this.state = state; - }; - var state = function (dict) { - return dict.state; - }; - exports["state"] = state; - exports["MonadState"] = MonadState; -})(PS["Control.Monad.State.Class"] = PS["Control.Monad.State.Class"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Lazy = PS["Control.Lazy"]; - var Control_Monad = PS["Control.Monad"]; - var Control_Monad_Cont_Class = PS["Control.Monad.Cont.Class"]; - var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"]; - var Control_Monad_Reader_Class = PS["Control.Monad.Reader.Class"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Control_Monad_State_Class = PS["Control.Monad.State.Class"]; - var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"]; - var Control_Monad_Writer_Class = PS["Control.Monad.Writer.Class"]; - var Control_MonadPlus = PS["Control.MonadPlus"]; - var Control_MonadZero = PS["Control.MonadZero"]; - var Control_Plus = PS["Control.Plus"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unit = PS["Data.Unit"]; - var Effect_Class = PS["Effect.Class"]; - var Prelude = PS["Prelude"]; - var StateT = function (x) { - return x; - }; - var functorStateT = function (dictFunctor) { - return new Data_Functor.Functor(function (f) { - return function (v) { - return function (s) { - return Data_Functor.map(dictFunctor)(function (v1) { - return new Data_Tuple.Tuple(f(v1.value0), v1.value1); - })(v(s)); - }; - }; - }); - }; - var monadStateT = function (dictMonad) { - return new Control_Monad.Monad(function () { - return applicativeStateT(dictMonad); - }, function () { - return bindStateT(dictMonad); - }); - }; - var bindStateT = function (dictMonad) { - return new Control_Bind.Bind(function () { - return applyStateT(dictMonad); - }, function (v) { - return function (f) { - return function (s) { - return Control_Bind.bind(dictMonad.Bind1())(v(s))(function (v1) { - var v3 = f(v1.value0); - return v3(v1.value1); - }); - }; - }; - }); - }; - var applyStateT = function (dictMonad) { - return new Control_Apply.Apply(function () { - return functorStateT(((dictMonad.Bind1()).Apply0()).Functor0()); - }, Control_Monad.ap(monadStateT(dictMonad))); - }; - var applicativeStateT = function (dictMonad) { - return new Control_Applicative.Applicative(function () { - return applyStateT(dictMonad); - }, function (a) { - return function (s) { - return Control_Applicative.pure(dictMonad.Applicative0())(new Data_Tuple.Tuple(a, s)); - }; - }); - }; - var monadRecStateT = function (dictMonadRec) { - return new Control_Monad_Rec_Class.MonadRec(function () { - return monadStateT(dictMonadRec.Monad0()); - }, function (f) { - return function (a) { - var f$prime = function (v) { - return Control_Bind.bind((dictMonadRec.Monad0()).Bind1())((function () { - var v1 = f(v.value0); - return v1; - })()(v.value1))(function (v1) { - return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())((function () { - if (v1.value0 instanceof Control_Monad_Rec_Class.Loop) { - return new Control_Monad_Rec_Class.Loop(new Data_Tuple.Tuple(v1.value0.value0, v1.value1)); - }; - if (v1.value0 instanceof Control_Monad_Rec_Class.Done) { - return new Control_Monad_Rec_Class.Done(new Data_Tuple.Tuple(v1.value0.value0, v1.value1)); - }; - throw new Error("Failed pattern match at Control.Monad.State.Trans line 87, column 16 - line 89, column 40: " + [ v1.value0.constructor.name ]); - })()); - }); - }; - return function (s) { - return Control_Monad_Rec_Class.tailRecM(dictMonadRec)(f$prime)(new Data_Tuple.Tuple(a, s)); - }; - }; - }); - }; - var monadStateStateT = function (dictMonad) { - return new Control_Monad_State_Class.MonadState(function () { - return monadStateT(dictMonad); - }, function (f) { - return StateT(function ($111) { - return Control_Applicative.pure(dictMonad.Applicative0())(f($111)); - }); - }); - }; - exports["StateT"] = StateT; - exports["functorStateT"] = functorStateT; - exports["applyStateT"] = applyStateT; - exports["applicativeStateT"] = applicativeStateT; - exports["bindStateT"] = bindStateT; - exports["monadStateT"] = monadStateT; - exports["monadRecStateT"] = monadRecStateT; - exports["monadStateStateT"] = monadStateStateT; -})(PS["Control.Monad.State.Trans"] = PS["Control.Monad.State.Trans"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Monad_State_Class = PS["Control.Monad.State.Class"]; - var Control_Monad_State_Trans = PS["Control.Monad.State.Trans"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Identity = PS["Data.Identity"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Tuple = PS["Data.Tuple"]; - var Prelude = PS["Prelude"]; - var runState = function (v) { - return function ($16) { - return Data_Newtype.unwrap(Data_Identity.newtypeIdentity)(v($16)); - }; - }; - exports["runState"] = runState; -})(PS["Control.Monad.State"] = PS["Control.Monad.State"] || {}); -(function(exports) { - "use strict"; - - exports.fromFoldableImpl = (function () { - function Cons(head, tail) { - this.head = head; - this.tail = tail; - } - var emptyList = {}; - - function curryCons(head) { - return function (tail) { - return new Cons(head, tail); - }; - } - - function listToArray(list) { - var result = []; - var count = 0; - var xs = list; - while (xs !== emptyList) { - result[count++] = xs.head; - xs = xs.tail; - } - return result; - } - - return function (foldr) { - return function (xs) { - return listToArray(foldr(curryCons)(emptyList)(xs)); - }; - }; - })(); - - exports.snoc = function (l) { - return function (e) { - var l1 = l.slice(); - l1.push(e); - return l1; - }; - }; - - //------------------------------------------------------------------------------ - // Subarrays ------------------------------------------------------------------- - //------------------------------------------------------------------------------ - - exports.slice = function (s) { - return function (e) { - return function (l) { - return l.slice(s, e); - }; - }; - }; -})(PS["Data.Array"] = PS["Data.Array"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Array"]; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Category = PS["Control.Category"]; - var Control_Lazy = PS["Control.Lazy"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Control_Monad_ST = PS["Control.Monad.ST"]; - var Control_Monad_ST_Internal = PS["Control.Monad.ST.Internal"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Array_NonEmpty_Internal = PS["Data.Array.NonEmpty.Internal"]; - var Data_Array_ST = PS["Data.Array.ST"]; - var Data_Array_ST_Iterator = PS["Data.Array.ST.Iterator"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Unsafe_Coerce = PS["Unsafe.Coerce"]; - var fromFoldable = function (dictFoldable) { - return $foreign.fromFoldableImpl(Data_Foldable.foldr(dictFoldable)); - }; - exports["fromFoldable"] = fromFoldable; - exports["snoc"] = $foreign.snoc; -})(PS["Data.Array"] = PS["Data.Array"] || {}); -(function(exports) { - "use strict"; - - exports.toCharCode = function (c) { - return c.charCodeAt(0); - }; - - exports.fromCharCode = function (c) { - return String.fromCharCode(c); - }; -})(PS["Data.Enum"] = PS["Data.Enum"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Enum"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_MonadPlus = PS["Control.MonadPlus"]; - var Control_MonadZero = PS["Control.MonadZero"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_Either = PS["Data.Either"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Data_Unfoldable1 = PS["Data.Unfoldable1"]; - var Data_Unit = PS["Data.Unit"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Enum = function (Ord0, pred, succ) { - this.Ord0 = Ord0; - this.pred = pred; - this.succ = succ; - }; - var BoundedEnum = function (Bounded0, Enum1, cardinality, fromEnum, toEnum) { - this.Bounded0 = Bounded0; - this.Enum1 = Enum1; - this.cardinality = cardinality; - this.fromEnum = fromEnum; - this.toEnum = toEnum; - }; - var toEnum = function (dict) { - return dict.toEnum; - }; - var succ = function (dict) { - return dict.succ; - }; - var pred = function (dict) { - return dict.pred; - }; - var fromEnum = function (dict) { - return dict.fromEnum; - }; - var toEnumWithDefaults = function (dictBoundedEnum) { - return function (low) { - return function (high) { - return function (x) { - var v = toEnum(dictBoundedEnum)(x); - if (v instanceof Data_Maybe.Just) { - return v.value0; - }; - if (v instanceof Data_Maybe.Nothing) { - var $51 = x < fromEnum(dictBoundedEnum)(Data_Bounded.bottom(dictBoundedEnum.Bounded0())); - if ($51) { - return low; - }; - return high; - }; - throw new Error("Failed pattern match at Data.Enum line 158, column 33 - line 160, column 62: " + [ v.constructor.name ]); - }; - }; - }; - }; - var defaultSucc = function (toEnum$prime) { - return function (fromEnum$prime) { - return function (a) { - return toEnum$prime(fromEnum$prime(a) + 1 | 0); - }; - }; - }; - var defaultPred = function (toEnum$prime) { - return function (fromEnum$prime) { - return function (a) { - return toEnum$prime(fromEnum$prime(a) - 1 | 0); - }; - }; - }; - var charToEnum = function (v) { - if (v >= Data_Bounded.bottom(Data_Bounded.boundedInt) && v <= Data_Bounded.top(Data_Bounded.boundedInt)) { - return new Data_Maybe.Just($foreign.fromCharCode(v)); - }; - return Data_Maybe.Nothing.value; - }; - var enumChar = new Enum(function () { - return Data_Ord.ordChar; - }, defaultPred(charToEnum)($foreign.toCharCode), defaultSucc(charToEnum)($foreign.toCharCode)); - var cardinality = function (dict) { - return dict.cardinality; - }; - var boundedEnumChar = new BoundedEnum(function () { - return Data_Bounded.boundedChar; - }, function () { - return enumChar; - }, $foreign.toCharCode(Data_Bounded.top(Data_Bounded.boundedChar)) - $foreign.toCharCode(Data_Bounded.bottom(Data_Bounded.boundedChar)) | 0, $foreign.toCharCode, charToEnum); - exports["Enum"] = Enum; - exports["succ"] = succ; - exports["pred"] = pred; - exports["BoundedEnum"] = BoundedEnum; - exports["cardinality"] = cardinality; - exports["toEnum"] = toEnum; - exports["fromEnum"] = fromEnum; - exports["toEnumWithDefaults"] = toEnumWithDefaults; - exports["defaultSucc"] = defaultSucc; - exports["defaultPred"] = defaultPred; - exports["enumChar"] = enumChar; - exports["boundedEnumChar"] = boundedEnumChar; -})(PS["Data.Enum"] = PS["Data.Enum"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Category = PS["Control.Category"]; - var Control_Plus = PS["Control.Plus"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"]; - var Data_Show = PS["Data.Show"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Data_Unfoldable1 = PS["Data.Unfoldable1"]; - var Prelude = PS["Prelude"]; - var NonEmpty = (function () { - function NonEmpty(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - NonEmpty.create = function (value0) { - return function (value1) { - return new NonEmpty(value0, value1); - }; - }; - return NonEmpty; - })(); - var foldableNonEmpty = function (dictFoldable) { - return new Data_Foldable.Foldable(function (dictMonoid) { - return function (f) { - return function (v) { - return Data_Semigroup.append(dictMonoid.Semigroup0())(f(v.value0))(Data_Foldable.foldMap(dictFoldable)(dictMonoid)(f)(v.value1)); - }; - }; - }, function (f) { - return function (b) { - return function (v) { - return Data_Foldable.foldl(dictFoldable)(f)(f(b)(v.value0))(v.value1); - }; - }; - }, function (f) { - return function (b) { - return function (v) { - return f(v.value0)(Data_Foldable.foldr(dictFoldable)(f)(b)(v.value1)); - }; - }; - }); - }; - var foldable1NonEmpty = function (dictFoldable) { - return new Data_Semigroup_Foldable.Foldable1(function () { - return foldableNonEmpty(dictFoldable); - }, function (dictSemigroup) { - return Data_Semigroup_Foldable.foldMap1(foldable1NonEmpty(dictFoldable))(dictSemigroup)(Control_Category.identity(Control_Category.categoryFn)); - }, function (dictSemigroup) { - return function (f) { - return function (v) { - return Data_Foldable.foldl(dictFoldable)(function (s) { - return function (a1) { - return Data_Semigroup.append(dictSemigroup)(s)(f(a1)); - }; - })(f(v.value0))(v.value1); - }; - }; - }); - }; - exports["NonEmpty"] = NonEmpty; - exports["foldableNonEmpty"] = foldableNonEmpty; - exports["foldable1NonEmpty"] = foldable1NonEmpty; -})(PS["Data.NonEmpty"] = PS["Data.NonEmpty"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Monad_Gen = PS["Control.Monad.Gen"]; - var Control_Monad_Gen_Class = PS["Control.Monad.Gen.Class"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_Enum = PS["Data.Enum"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Functor = PS["Data.Functor"]; - var Data_NonEmpty = PS["Data.NonEmpty"]; - var Prelude = PS["Prelude"]; - var genAlphaUppercase = function (dictMonadGen) { - return Data_Functor.map((((dictMonadGen.Monad0()).Bind1()).Apply0()).Functor0())(Data_Enum.toEnumWithDefaults(Data_Enum.boundedEnumChar)(Data_Bounded.bottom(Data_Bounded.boundedChar))(Data_Bounded.top(Data_Bounded.boundedChar)))(Control_Monad_Gen_Class.chooseInt(dictMonadGen)(65)(90)); - }; - var genAlphaLowercase = function (dictMonadGen) { - return Data_Functor.map((((dictMonadGen.Monad0()).Bind1()).Apply0()).Functor0())(Data_Enum.toEnumWithDefaults(Data_Enum.boundedEnumChar)(Data_Bounded.bottom(Data_Bounded.boundedChar))(Data_Bounded.top(Data_Bounded.boundedChar)))(Control_Monad_Gen_Class.chooseInt(dictMonadGen)(97)(122)); - }; - var genAlpha = function (dictMonadGen) { - return Control_Monad_Gen.oneOf(dictMonadGen)(Data_NonEmpty.foldable1NonEmpty(Data_Foldable.foldableArray))(new Data_NonEmpty.NonEmpty(genAlphaLowercase(dictMonadGen), [ genAlphaUppercase(dictMonadGen) ])); - }; - exports["genAlpha"] = genAlpha; - exports["genAlphaLowercase"] = genAlphaLowercase; - exports["genAlphaUppercase"] = genAlphaUppercase; -})(PS["Data.Char.Gen"] = PS["Data.Char.Gen"] || {}); -(function(exports) { - "use strict"; - - exports.fromNumberImpl = function (just) { - return function (nothing) { - return function (n) { - /* jshint bitwise: false */ - return (n | 0) === n ? just(n) : nothing; - }; - }; - }; - - exports.toNumber = function (n) { - return n; - }; -})(PS["Data.Int"] = PS["Data.Int"] || {}); -(function(exports) { - /* globals exports */ - "use strict"; - - exports.infinity = Infinity; -})(PS["Global"] = PS["Global"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Global"]; - exports["infinity"] = $foreign.infinity; -})(PS["Global"] = PS["Global"] || {}); -(function(exports) { - "use strict"; - - exports.floor = Math.floor; - - exports.remainder = function (n) { - return function (m) { - return n % m; - }; - }; -})(PS["Math"] = PS["Math"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Math"]; - exports["floor"] = $foreign.floor; - exports["remainder"] = $foreign.remainder; -})(PS["Math"] = PS["Math"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Int"]; - var Control_Category = PS["Control.Category"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_CommutativeRing = PS["Data.CommutativeRing"]; - var Data_DivisionRing = PS["Data.DivisionRing"]; - var Data_Eq = PS["Data.Eq"]; - var Data_EuclideanRing = PS["Data.EuclideanRing"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Int_Bits = PS["Data.Int.Bits"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Global = PS["Global"]; - var $$Math = PS["Math"]; - var Prelude = PS["Prelude"]; - var fromNumber = $foreign.fromNumberImpl(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var unsafeClamp = function (x) { - if (x === Global.infinity) { - return 0; - }; - if (x === -Global.infinity) { - return 0; - }; - if (x >= $foreign.toNumber(Data_Bounded.top(Data_Bounded.boundedInt))) { - return Data_Bounded.top(Data_Bounded.boundedInt); - }; - if (x <= $foreign.toNumber(Data_Bounded.bottom(Data_Bounded.boundedInt))) { - return Data_Bounded.bottom(Data_Bounded.boundedInt); - }; - if (Data_Boolean.otherwise) { - return Data_Maybe.fromMaybe(0)(fromNumber(x)); - }; - throw new Error("Failed pattern match at Data.Int line 66, column 1 - line 66, column 29: " + [ x.constructor.name ]); - }; - var floor = function ($24) { - return unsafeClamp($$Math.floor($24)); - }; - exports["fromNumber"] = fromNumber; - exports["floor"] = floor; - exports["toNumber"] = $foreign.toNumber; -})(PS["Data.Int"] = PS["Data.Int"] || {}); -(function(exports) { - 'use strict'; - - exports.nextImpl = function nextImpl(iterator) { - return iterator.next(); - }; -})(PS["Data.Iterable"] = PS["Data.Iterable"] || {}); -(function(exports) { - "use strict"; - - exports.runEffectFn1 = function runEffectFn1(fn) { - return function(a) { - return function() { - return fn(a); - }; - }; - }; -})(PS["Effect.Uncurried"] = PS["Effect.Uncurried"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect.Uncurried"]; - var Effect = PS["Effect"]; - exports["runEffectFn1"] = $foreign.runEffectFn1; -})(PS["Effect.Uncurried"] = PS["Effect.Uncurried"] || {}); -(function(exports) { - "use strict"; - - exports.unsafeFromForeign = function (value) { - return value; - }; -})(PS["Foreign"] = PS["Foreign"] || {}); -(function(exports) { - "use strict"; - - exports.fromCharArray = function (a) { - return a.join(""); - }; -})(PS["Data.String.CodeUnits"] = PS["Data.String.CodeUnits"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.String.CodeUnits"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Function = PS["Data.Function"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_String_Pattern = PS["Data.String.Pattern"]; - var Data_String_Unsafe = PS["Data.String.Unsafe"]; - var Prelude = PS["Prelude"]; - exports["fromCharArray"] = $foreign.fromCharArray; -})(PS["Data.String.CodeUnits"] = PS["Data.String.CodeUnits"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Foreign"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"]; - var Control_Monad_Except = PS["Control.Monad.Except"]; - var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Either = PS["Data.Either"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Function = PS["Data.Function"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Identity = PS["Data.Identity"]; - var Data_Int = PS["Data.Int"]; - var Data_List_NonEmpty = PS["Data.List.NonEmpty"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Show = PS["Data.Show"]; - var Data_String_CodeUnits = PS["Data.String.CodeUnits"]; - var Prelude = PS["Prelude"]; - exports["unsafeFromForeign"] = $foreign.unsafeFromForeign; -})(PS["Foreign"] = PS["Foreign"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Iterable"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Data_Array = PS["Data.Array"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Unit = PS["Data.Unit"]; - var Effect = PS["Effect"]; - var Effect_Ref = PS["Effect.Ref"]; - var Effect_Uncurried = PS["Effect.Uncurried"]; - var Foreign = PS["Foreign"]; - var Prelude = PS["Prelude"]; - var next = function (i) { - var toMaybe = function (v) { - if (v.done) { - return Data_Maybe.Nothing.value; - }; - if (Data_Boolean.otherwise) { - return new Data_Maybe.Just(Foreign.unsafeFromForeign(v.value)); - }; - throw new Error("Failed pattern match at Data.Iterable line 35, column 5 - line 37, column 51: " + [ v.constructor.name ]); - }; - return Data_Functor.map(Effect.functorEffect)(toMaybe)(function () { - return $foreign.nextImpl(i); - }); - }; - var traverse_ = function (f) { - return function (i) { - var go = function (v) { - return function __do() { - var mv = next(i)(); - return Data_Maybe.maybe(Control_Applicative.pure(Effect.applicativeEffect)(new Control_Monad_Rec_Class.Done(Data_Unit.unit)))(function (x) { - return Data_Functor.voidRight(Effect.functorEffect)(new Control_Monad_Rec_Class.Loop(Data_Unit.unit))(f(x)); - })(mv)(); - }; - }; - return Control_Monad_Rec_Class.tailRecM(Control_Monad_Rec_Class.monadRecEffect)(go)(Data_Unit.unit); - }; - }; - var toArray = function (i) { - return function __do() { - var v = Effect_Ref["new"]([ ])(); - traverse_(function (x) { - return Data_Functor["void"](Effect.functorEffect)(Effect_Ref.modify(function (ys) { - return Data_Array.snoc(ys)(x); - })(v)); - })(i)(); - return Effect_Ref.read(v)(); - }; - }; - exports["next"] = next; - exports["traverse_"] = traverse_; - exports["toArray"] = toArray; -})(PS["Data.Iterable"] = PS["Data.Iterable"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Category = PS["Control.Category"]; - var Control_Comonad = PS["Control.Comonad"]; - var Control_Extend = PS["Control.Extend"]; - var Control_Monad = PS["Control.Monad"]; - var Control_MonadPlus = PS["Control.MonadPlus"]; - var Control_MonadZero = PS["Control.MonadZero"]; - var Control_Plus = PS["Control.Plus"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_NonEmpty = PS["Data.NonEmpty"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"]; - var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Data_Unfoldable1 = PS["Data.Unfoldable1"]; - var Prelude = PS["Prelude"]; - var Nil = (function () { - function Nil() { - - }; - Nil.value = new Nil(); - return Nil; - })(); - var Cons = (function () { - function Cons(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - Cons.create = function (value0) { - return function (value1) { - return new Cons(value0, value1); - }; - }; - return Cons; - })(); - exports["Nil"] = Nil; - exports["Cons"] = Cons; -})(PS["Data.List.Types"] = PS["Data.List.Types"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Alt = PS["Control.Alt"]; - var Control_Alternative = PS["Control.Alternative"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Category = PS["Control.Category"]; - var Control_Lazy = PS["Control.Lazy"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Bifunctor = PS["Data.Bifunctor"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_List_Types = PS["Data.List.Types"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_NonEmpty = PS["Data.NonEmpty"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ordering = PS["Data.Ordering"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Data_Unit = PS["Data.Unit"]; - var Prelude = PS["Prelude"]; - var uncons = function (v) { - if (v instanceof Data_List_Types.Nil) { - return Data_Maybe.Nothing.value; - }; - if (v instanceof Data_List_Types.Cons) { - return new Data_Maybe.Just({ - head: v.value0, - tail: v.value1 - }); - }; - throw new Error("Failed pattern match at Data.List line 259, column 1 - line 259, column 66: " + [ v.constructor.name ]); - }; - var toUnfoldable = function (dictUnfoldable) { - return Data_Unfoldable.unfoldr(dictUnfoldable)(function (xs) { - return Data_Functor.map(Data_Maybe.functorMaybe)(function (rec) { - return new Data_Tuple.Tuple(rec.head, rec.tail); - })(uncons(xs)); - }); - }; - var tail = function (v) { - if (v instanceof Data_List_Types.Nil) { - return Data_Maybe.Nothing.value; - }; - if (v instanceof Data_List_Types.Cons) { - return new Data_Maybe.Just(v.value1); - }; - throw new Error("Failed pattern match at Data.List line 245, column 1 - line 245, column 43: " + [ v.constructor.name ]); - }; - var head = function (v) { - if (v instanceof Data_List_Types.Nil) { - return Data_Maybe.Nothing.value; - }; - if (v instanceof Data_List_Types.Cons) { - return new Data_Maybe.Just(v.value0); - }; - throw new Error("Failed pattern match at Data.List line 230, column 1 - line 230, column 22: " + [ v.constructor.name ]); - }; - exports["toUnfoldable"] = toUnfoldable; - exports["head"] = head; - exports["tail"] = tail; - exports["uncons"] = uncons; -})(PS["Data.List"] = PS["Data.List"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad_Gen = PS["Control.Monad.Gen"]; - var Control_Monad_Gen_Class = PS["Control.Monad.Gen.Class"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Data_Char_Gen = PS["Data.Char.Gen"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Ord = PS["Data.Ord"]; - var Data_String_CodeUnits = PS["Data.String.CodeUnits"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Prelude = PS["Prelude"]; - var genString = function (dictMonadRec) { - return function (dictMonadGen) { - return function (genChar) { - return Control_Monad_Gen_Class.sized(dictMonadGen)(function (size) { - return Control_Bind.bind((dictMonadGen.Monad0()).Bind1())(Control_Monad_Gen_Class.chooseInt(dictMonadGen)(1)(Data_Ord.max(Data_Ord.ordInt)(1)(size)))(function (v) { - return Control_Monad_Gen_Class.resize(dictMonadGen)(Data_Function["const"](v))(Data_Functor.map((((dictMonadGen.Monad0()).Bind1()).Apply0()).Functor0())(Data_String_CodeUnits.fromCharArray)(Control_Monad_Gen.unfoldable(dictMonadRec)(dictMonadGen)(Data_Unfoldable.unfoldableArray)(genChar))); - }); - }); - }; - }; - }; - var genAlphaString = function (dictMonadRec) { - return function (dictMonadGen) { - return genString(dictMonadRec)(dictMonadGen)(Data_Char_Gen.genAlpha(dictMonadGen)); - }; - }; - exports["genString"] = genString; - exports["genAlphaString"] = genAlphaString; -})(PS["Data.String.Gen"] = PS["Data.String.Gen"] || {}); -(function(exports) { - 'use strict'; - - exports.prjImpl = function projImpl1 (n) { - return function projImpl2 (t) { - return t[n]; - }; - }; - - exports.t2 = function t21 (a) { - return function t22 (b) { - return [a,b]; - }; - }; -})(PS["Data.Tuple.Native"] = PS["Data.Tuple.Native"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Unit = PS["Data.Unit"]; - var Unsafe_Coerce = PS["Unsafe.Coerce"]; - var $$undefined = Data_Unit.unit; - exports["undefined"] = $$undefined; -})(PS["Data.Typelevel.Undefined"] = PS["Data.Typelevel.Undefined"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Show = PS["Data.Show"]; - var Data_Typelevel_Undefined = PS["Data.Typelevel.Undefined"]; - var d1 = Data_Typelevel_Undefined["undefined"]; - var d0 = Data_Typelevel_Undefined["undefined"]; - exports["d0"] = d0; - exports["d1"] = d1; -})(PS["Data.Typelevel.Num.Reps"] = PS["Data.Typelevel.Num.Reps"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_EuclideanRing = PS["Data.EuclideanRing"]; - var Data_Function = PS["Data.Function"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Typelevel_Num_Reps = PS["Data.Typelevel.Num.Reps"]; - var Data_Typelevel_Undefined = PS["Data.Typelevel.Undefined"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Type_Proxy = PS["Type.Proxy"]; - var Nat = function (toInt) { - this.toInt = toInt; - }; - var toInt = function (dict) { - return dict.toInt; - }; - var natD2 = new Nat(function (v) { - return 2; - }); - var natD1 = new Nat(function (v) { - return 1; - }); - var natD0 = new Nat(function (v) { - return 0; - }); - exports["toInt"] = toInt; - exports["Nat"] = Nat; - exports["natD0"] = natD0; - exports["natD1"] = natD1; - exports["natD2"] = natD2; -})(PS["Data.Typelevel.Num.Sets"] = PS["Data.Typelevel.Num.Sets"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Show = PS["Data.Show"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Typelevel_Bool = PS["Data.Typelevel.Bool"]; - var Data_Typelevel_Num_Reps = PS["Data.Typelevel.Num.Reps"]; - var Data_Typelevel_Num_Sets = PS["Data.Typelevel.Num.Sets"]; - var Data_Typelevel_Undefined = PS["Data.Typelevel.Undefined"]; - var Prelude = PS["Prelude"]; - var Trich = function (Nat0, Nat1) { - this.Nat0 = Nat0; - this.Nat1 = Nat1; - }; - var Lt = {}; - var trichLt = function (dictTrich) { - return Lt; - }; - var trichD1D2 = new Trich(function () { - return Data_Typelevel_Num_Sets.natD1; - }, function () { - return Data_Typelevel_Num_Sets.natD2; - }); - var trichD0D2 = new Trich(function () { - return Data_Typelevel_Num_Sets.natD0; - }, function () { - return Data_Typelevel_Num_Sets.natD2; - }); - exports["Trich"] = Trich; - exports["Lt"] = Lt; - exports["trichD0D2"] = trichD0D2; - exports["trichD1D2"] = trichD1D2; - exports["trichLt"] = trichLt; -})(PS["Data.Typelevel.Num.Ops"] = PS["Data.Typelevel.Num.Ops"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Type_Data_Boolean = PS["Type.Data.Boolean"]; - var Type_Data_Symbol = PS["Type.Data.Symbol"]; - var Type_Equality = PS["Type.Equality"]; - var ListToRow = {}; - var listToRowNil = ListToRow; - var listToCons = function (dictListToRow) { - return function (dictCons) { - return ListToRow; - }; - }; - exports["ListToRow"] = ListToRow; - exports["listToRowNil"] = listToRowNil; - exports["listToCons"] = listToCons; -})(PS["Type.Row"] = PS["Type.Row"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Data.Tuple.Native"]; - var Data_Function = PS["Data.Function"]; - var Data_Generic_Rep = PS["Data.Generic.Rep"]; - var Data_Typelevel_Num = PS["Data.Typelevel.Num"]; - var Data_Typelevel_Num_Ops = PS["Data.Typelevel.Num.Ops"]; - var Data_Typelevel_Num_Reps = PS["Data.Typelevel.Num.Reps"]; - var Data_Typelevel_Num_Sets = PS["Data.Typelevel.Num.Sets"]; - var Prelude = PS["Prelude"]; - var Type_Row = PS["Type.Row"]; - var TupleSize = {}; - var ShowNat = {}; - var tupleSizeT2 = TupleSize; - var showNatD1 = ShowNat; - var showNatD0 = ShowNat; - var prj = function (dictTupleSize) { - return function (dictLt) { - return function (dictShowNat) { - return function (dictListToRow) { - return function (dictCons) { - return function (dictNat) { - return function (n) { - return function (t) { - return $foreign.prjImpl(Data_Typelevel_Num_Sets.toInt(dictNat)(n))(t); - }; - }; - }; - }; - }; - }; - }; - }; - exports["prj"] = prj; - exports["TupleSize"] = TupleSize; - exports["ShowNat"] = ShowNat; - exports["tupleSizeT2"] = tupleSizeT2; - exports["showNatD0"] = showNatD0; - exports["showNatD1"] = showNatD1; - exports["t2"] = $foreign.t2; -})(PS["Data.Tuple.Native"] = PS["Data.Tuple.Native"] || {}); -(function(exports) { - "use strict"; - - exports.log = function (s) { - return function () { - console.log(s); - return {}; - }; - }; -})(PS["Effect.Console"] = PS["Effect.Console"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect.Console"]; - var Data_Show = PS["Data.Show"]; - var Data_Unit = PS["Data.Unit"]; - var Effect = PS["Effect"]; - exports["log"] = $foreign.log; -})(PS["Effect.Console"] = PS["Effect.Console"] || {}); -(function(exports) { - "use strict"; - - exports.error = function (msg) { - return new Error(msg); - }; - - exports.throwException = function (e) { - return function () { - throw e; - }; - }; -})(PS["Effect.Exception"] = PS["Effect.Exception"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect.Exception"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Either = PS["Data.Either"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Show = PS["Data.Show"]; - var Effect = PS["Effect"]; - var Prelude = PS["Prelude"]; - exports["error"] = $foreign.error; - exports["throwException"] = $foreign.throwException; -})(PS["Effect.Exception"] = PS["Effect.Exception"] || {}); -(function(exports) { - "use strict"; - - exports.random = Math.random; -})(PS["Effect.Random"] = PS["Effect.Random"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect.Random"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Bind = PS["Control.Bind"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Int = PS["Data.Int"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Effect = PS["Effect"]; - var Prelude = PS["Prelude"]; - var randomInt = function (low) { - return function (high) { - return function __do() { - var v = $foreign.random(); - var asNumber = ((Data_Int.toNumber(high) - Data_Int.toNumber(low)) + 1) * v + Data_Int.toNumber(low); - return Data_Int.floor(asNumber); - }; - }; - }; - exports["randomInt"] = randomInt; -})(PS["Effect.Random"] = PS["Effect.Random"] || {}); -(function(exports) { - "use strict"; - - exports.unsafePerformEffect = function (f) { - return f(); - }; -})(PS["Effect.Unsafe"] = PS["Effect.Unsafe"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Effect.Unsafe"]; - var Effect = PS["Effect"]; - exports["unsafePerformEffect"] = $foreign.unsafePerformEffect; -})(PS["Effect.Unsafe"] = PS["Effect.Unsafe"] || {}); -(function(exports) { - "use strict"; - - exports.runST = function (f) { - return f(); - }; - - exports.all = function (f) { - return function (m) { - for (var k in m) { - if (hasOwnProperty.call(m, k) && !f(k)(m[k])) return false; - } - return true; - }; - }; - - exports._lookup = function (no, yes, k, m) { - return k in m ? yes(m[k]) : no; - }; - - function toArrayWithKey(f) { - return function (m) { - var r = []; - for (var k in m) { - if (hasOwnProperty.call(m, k)) { - r.push(f(k)(m[k])); - } - } - return r; - }; - } - - exports.toArrayWithKey = toArrayWithKey; -})(PS["Foreign.Object"] = PS["Foreign.Object"] || {}); -(function(exports) { - "use strict"; - - exports["new"] = function () { - return {}; - }; - - exports.poke = function (k) { - return function (v) { - return function (m) { - return function () { - m[k] = v; - return m; - }; - }; - }; - }; -})(PS["Foreign.Object.ST"] = PS["Foreign.Object.ST"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Foreign.Object.ST"]; - var Control_Monad_ST = PS["Control.Monad.ST"]; - var Data_Maybe = PS["Data.Maybe"]; - exports["new"] = $foreign["new"]; - exports["poke"] = $foreign.poke; -})(PS["Foreign.Object.ST"] = PS["Foreign.Object.ST"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Foreign.Object"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Category = PS["Control.Category"]; - var Control_Monad_ST = PS["Control.Monad.ST"]; - var Control_Monad_ST_Internal = PS["Control.Monad.ST.Internal"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Array = PS["Data.Array"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"]; - var Data_Function = PS["Data.Function"]; - var Data_Function_Uncurried = PS["Data.Function.Uncurried"]; - var Data_Functor = PS["Data.Functor"]; - var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"]; - var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Show = PS["Data.Show"]; - var Data_Traversable = PS["Data.Traversable"]; - var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Foreign_Object_ST = PS["Foreign.Object.ST"]; - var Prelude = PS["Prelude"]; - var Type_Row_Homogeneous = PS["Type.Row.Homogeneous"]; - var Unsafe_Coerce = PS["Unsafe.Coerce"]; - var toArray = $foreign.toArrayWithKey(Data_Tuple.Tuple.create); - var showObject = function (dictShow) { - return new Data_Show.Show(function (m) { - return "(fromFoldable " + (Data_Show.show(Data_Show.showArray(Data_Tuple.showTuple(Data_Show.showString)(dictShow)))(toArray(m)) + ")"); - }); - }; - var isSubmap = function (dictEq) { - return function (m1) { - return function (m2) { - var f = function (k) { - return function (v) { - return $foreign._lookup(false, Data_Eq.eq(dictEq)(v), k, m2); - }; - }; - return $foreign.all(f)(m1); - }; - }; - }; - var fromFoldable = function (dictFoldable) { - return function (l) { - return $foreign.runST(Control_Bind.bind(Control_Monad_ST_Internal.bindST)(Foreign_Object_ST["new"])(function (v) { - return Control_Bind.discard(Control_Bind.discardUnit)(Control_Monad_ST_Internal.bindST)(Data_Foldable.for_(Control_Monad_ST_Internal.applicativeST)(Data_Foldable.foldableArray)(Data_Array.fromFoldable(dictFoldable)(l))(function (v1) { - return Foreign_Object_ST.poke(v1.value0)(v1.value1)(v); - }))(function () { - return Control_Applicative.pure(Control_Monad_ST_Internal.applicativeST)(v); - }); - })); - }; - }; - var eqObject = function (dictEq) { - return new Data_Eq.Eq(function (m1) { - return function (m2) { - return isSubmap(dictEq)(m1)(m2) && isSubmap(dictEq)(m2)(m1); - }; - }); - }; - exports["fromFoldable"] = fromFoldable; - exports["isSubmap"] = isSubmap; - exports["eqObject"] = eqObject; - exports["showObject"] = showObject; -})(PS["Foreign.Object"] = PS["Foreign.Object"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Data_Eq = PS["Data.Eq"]; - var Data_EuclideanRing = PS["Data.EuclideanRing"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Int = PS["Data.Int"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Effect = PS["Effect"]; - var Effect_Random = PS["Effect.Random"]; - var $$Math = PS["Math"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Seed = function (x) { - return x; - }; - var unSeed = function (v) { - return v; - }; - var seedMin = 1; - var lcgM = 2147483647; - var seedMax = lcgM - 1 | 0; - var mkSeed = function (x) { - var ensureBetween = function (min) { - return function (max) { - return function (n) { - var rangeSize = max - min | 0; - var n$prime = Data_EuclideanRing.mod(Data_EuclideanRing.euclideanRingInt)(n)(rangeSize); - var $14 = n$prime < min; - if ($14) { - return n$prime + max | 0; - }; - return n$prime; - }; - }; - }; - return ensureBetween(seedMin)(seedMax)(x); - }; - var randomSeed = Data_Functor.map(Effect.functorEffect)(mkSeed)(Effect_Random.randomInt(seedMin)(seedMax)); - var lcgC = 0; - var lcgA = 48271; - var lcgPerturb = function (d) { - return function (v) { - return Seed(Data_Maybe.fromJust()(Data_Int.fromNumber($$Math.remainder(Data_Int.toNumber(lcgA) * Data_Int.toNumber(v) + d)(Data_Int.toNumber(lcgM))))); - }; - }; - var lcgNext = lcgPerturb(Data_Int.toNumber(lcgC)); - exports["mkSeed"] = mkSeed; - exports["unSeed"] = unSeed; - exports["randomSeed"] = randomSeed; - exports["lcgA"] = lcgA; - exports["lcgC"] = lcgC; - exports["lcgM"] = lcgM; - exports["lcgNext"] = lcgNext; - exports["lcgPerturb"] = lcgPerturb; -})(PS["Random.LCG"] = PS["Random.LCG"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Test.QuickCheck.Gen"]; - var Control_Alt = PS["Control.Alt"]; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Lazy = PS["Control.Lazy"]; - var Control_Monad = PS["Control.Monad"]; - var Control_Monad_Gen_Class = PS["Control.Monad.Gen.Class"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Control_Monad_State = PS["Control.Monad.State"]; - var Control_Monad_State_Class = PS["Control.Monad.State.Class"]; - var Control_Monad_State_Trans = PS["Control.Monad.State.Trans"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Array = PS["Data.Array"]; - var Data_Bounded = PS["Data.Bounded"]; - var Data_Enum = PS["Data.Enum"]; - var Data_Eq = PS["Data.Eq"]; - var Data_EuclideanRing = PS["Data.EuclideanRing"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Identity = PS["Data.Identity"]; - var Data_Int = PS["Data.Int"]; - var Data_List = PS["Data.List"]; - var Data_List_Types = PS["Data.List.Types"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Monoid_Additive = PS["Data.Monoid.Additive"]; - var Data_Newtype = PS["Data.Newtype"]; - var Data_NonEmpty = PS["Data.NonEmpty"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Ring = PS["Data.Ring"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Data_Unit = PS["Data.Unit"]; - var Effect = PS["Effect"]; - var $$Math = PS["Math"]; - var Partial_Unsafe = PS["Partial.Unsafe"]; - var Prelude = PS["Prelude"]; - var Random_LCG = PS["Random.LCG"]; - var Gen = function (x) { - return x; - }; - var unGen = function (v) { - return v; - }; - var runGen = function ($78) { - return Control_Monad_State.runState(unGen($78)); - }; - var stateful = function (f) { - return Gen(Control_Monad_State_Class.state(Control_Monad_State_Trans.monadStateStateT(Data_Identity.monadIdentity))(function (s) { - return runGen(f(s))(s); - })); - }; - var sized = function (f) { - return stateful(function (s) { - return f(s.size); - }); - }; - var resize = function (sz) { - return function (g) { - return Gen(Control_Monad_State_Class.state(Control_Monad_State_Trans.monadStateStateT(Data_Identity.monadIdentity))(function (v) { - return Data_Functor.map(Data_Tuple.functorTuple)(function (v1) { - return { - size: v.size, - newSeed: v1.newSeed - }; - })(runGen(g)({ - newSeed: v.newSeed, - size: sz - })); - })); - }; - }; - var replicateMRec = function (dictMonadRec) { - return function (k) { - return function (v) { - if (k <= 0) { - return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(Data_List_Types.Nil.value); - }; - var go = function (v1) { - if (v1.value1 === 0) { - return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Done(v1.value0)); - }; - return Data_Functor.mapFlipped((((dictMonadRec.Monad0()).Bind1()).Apply0()).Functor0())(v)(function (x) { - return new Control_Monad_Rec_Class.Loop(new Data_Tuple.Tuple(new Data_List_Types.Cons(x, v1.value0), v1.value1 - 1 | 0)); - }); - }; - return Control_Monad_Rec_Class.tailRecM(dictMonadRec)(go)(new Data_Tuple.Tuple(Data_List_Types.Nil.value, k)); - }; - }; - }; - var monadRecGen = Control_Monad_State_Trans.monadRecStateT(Control_Monad_Rec_Class.monadRecIdentity); - var monadGen = Control_Monad_State_Trans.monadStateT(Data_Identity.monadIdentity); - var listOf = replicateMRec(monadRecGen); - var lcgStep = (function () { - var f = function (s) { - return new Data_Tuple.Tuple(Random_LCG.unSeed(s.newSeed), (function () { - var $43 = {}; - for (var $44 in s) { - if ({}.hasOwnProperty.call(s, $44)) { - $43[$44] = s[$44]; - }; - }; - $43.newSeed = Random_LCG.lcgNext(s.newSeed); - return $43; - })()); - }; - return Gen(Control_Monad_State_Class.state(Control_Monad_State_Trans.monadStateStateT(Data_Identity.monadIdentity))(f)); - })(); - var functorGen = Control_Monad_State_Trans.functorStateT(Data_Identity.functorIdentity); - var uniform = Data_Functor.map(functorGen)(function (n) { - return Data_Int.toNumber(n) / Data_Int.toNumber(Random_LCG.lcgM); - })(lcgStep); - var vectorOf = function (k) { - return function (g) { - return Data_Functor.map(functorGen)(Data_List.toUnfoldable(Data_Unfoldable.unfoldableArray))(listOf(k)(g)); - }; - }; - var choose = function (a) { - return function (b) { - var min$prime = Data_Ord.min(Data_Ord.ordNumber)(a)(b); - var max$prime = Data_Ord.max(Data_Ord.ordNumber)(a)(b); - return Data_Functor.map(functorGen)(function ($80) { - return min$prime + (max$prime - min$prime) * $80; - })(uniform); - }; - }; - var bindGen = Control_Monad_State_Trans.bindStateT(Data_Identity.monadIdentity); - var applyGen = Control_Monad_State_Trans.applyStateT(Data_Identity.monadIdentity); - var chooseInt$prime = function (a) { - return function (b) { - var numB = Data_Int.toNumber(b); - var numA = Data_Int.toNumber(a); - var clamp = function (x) { - return numA + $$Math.remainder(x)((numB - numA) + 1); - }; - var choose31BitPosNumber = Data_Functor.map(functorGen)(Data_Int.toNumber)(lcgStep); - var choose32BitPosNumber = Control_Apply.apply(applyGen)(Data_Functor.map(functorGen)(Data_Semiring.add(Data_Semiring.semiringNumber))(choose31BitPosNumber))(Data_Functor.map(functorGen)(Data_Semiring.mul(Data_Semiring.semiringNumber)(2.0))(choose31BitPosNumber)); - return Data_Functor.map(functorGen)(function ($82) { - return Data_Int.floor(clamp($82)); - })(choose32BitPosNumber); - }; - }; - var chooseInt = function (a) { - return function (b) { - var $59 = a <= b; - if ($59) { - return chooseInt$prime(a)(b); - }; - return chooseInt$prime(b)(a); - }; - }; - var arrayOf = function (g) { - return sized(function (n) { - return Control_Bind.bind(bindGen)(chooseInt(0)(n))(function (v) { - return vectorOf(v)(g); - }); - }); - }; - var monadGenGen = new Control_Monad_Gen_Class.MonadGen(function () { - return monadGen; - }, Data_Functor.map(functorGen)(function (v) { - return v < 0.5; - })(uniform), choose, chooseInt, function (f) { - return function (g) { - return sized(function (s) { - return resize(f(s))(g); - }); - }; - }, sized); - var applicativeGen = Control_Monad_State_Trans.applicativeStateT(Data_Identity.monadIdentity); - var suchThat = function (gen) { - return function (pred) { - var go = function (v) { - return Control_Bind.bind(bindGen)(gen)(function (v1) { - return Control_Applicative.pure(applicativeGen)((function () { - var $77 = pred(v1); - if ($77) { - return new Control_Monad_Rec_Class.Done(v1); - }; - return new Control_Monad_Rec_Class.Loop(Data_Unit.unit); - })()); - }); - }; - return Control_Monad_Rec_Class.tailRecM(monadRecGen)(go)(Data_Unit.unit); - }; - }; - exports["unGen"] = unGen; - exports["stateful"] = stateful; - exports["suchThat"] = suchThat; - exports["sized"] = sized; - exports["resize"] = resize; - exports["choose"] = choose; - exports["chooseInt"] = chooseInt; - exports["arrayOf"] = arrayOf; - exports["listOf"] = listOf; - exports["vectorOf"] = vectorOf; - exports["runGen"] = runGen; - exports["uniform"] = uniform; - exports["functorGen"] = functorGen; - exports["applyGen"] = applyGen; - exports["applicativeGen"] = applicativeGen; - exports["bindGen"] = bindGen; - exports["monadGen"] = monadGen; - exports["monadRecGen"] = monadRecGen; - exports["monadGenGen"] = monadGenGen; -})(PS["Test.QuickCheck.Gen"] = PS["Test.QuickCheck.Gen"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Bind = PS["Control.Bind"]; - var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Boolean = PS["Data.Boolean"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_List = PS["Data.List"]; - var Data_List_Types = PS["Data.List.Types"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Maybe_First = PS["Data.Maybe.First"]; - var Data_Monoid = PS["Data.Monoid"]; - var Data_Ord = PS["Data.Ord"]; - var Data_Semigroup = PS["Data.Semigroup"]; - var Data_Semiring = PS["Data.Semiring"]; - var Data_Show = PS["Data.Show"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Unfoldable = PS["Data.Unfoldable"]; - var Effect = PS["Effect"]; - var Effect_Console = PS["Effect.Console"]; - var Effect_Exception = PS["Effect.Exception"]; - var Prelude = PS["Prelude"]; - var Random_LCG = PS["Random.LCG"]; - var Test_QuickCheck_Arbitrary = PS["Test.QuickCheck.Arbitrary"]; - var Test_QuickCheck_Gen = PS["Test.QuickCheck.Gen"]; - var Success = (function () { - function Success() { - - }; - Success.value = new Success(); - return Success; - })(); - var Failed = (function () { - function Failed(value0) { - this.value0 = value0; - }; - Failed.create = function (value0) { - return new Failed(value0); - }; - return Failed; - })(); - var Testable = function (test) { - this.test = test; - }; - var withHelp = function (v) { - return function (v1) { - if (v) { - return Success.value; - }; - if (!v) { - return new Failed(v1); - }; - throw new Error("Failed pattern match at Test.QuickCheck line 187, column 1 - line 187, column 40: " + [ v.constructor.name, v1.constructor.name ]); - }; - }; - var testableResult = new Testable(Control_Applicative.pure(Test_QuickCheck_Gen.applicativeGen)); - var test = function (dict) { - return dict.test; - }; - var testableGen = function (dictTestable) { - return new Testable(Data_Function.flip(Control_Bind.bind(Test_QuickCheck_Gen.bindGen))(test(dictTestable))); - }; - var quickCheckWithSeed = function (dictTestable) { - return function (initialSeed) { - return function (n) { - return function (prop) { - var loop = function (v) { - if (v.index === n) { - return new Control_Monad_Rec_Class.Done(v); - }; - if (Data_Boolean.otherwise) { - var v1 = Test_QuickCheck_Gen.runGen(test(dictTestable)(prop))({ - newSeed: v.seed, - size: 10 - }); - if (v1.value0 instanceof Success) { - return new Control_Monad_Rec_Class.Loop({ - seed: v1.value1.newSeed, - index: v.index + 1 | 0, - successes: v.successes + 1 | 0, - firstFailure: v.firstFailure - }); - }; - if (v1.value0 instanceof Failed) { - return new Control_Monad_Rec_Class.Loop({ - seed: v1.value1.newSeed, - index: v.index + 1 | 0, - successes: v.successes, - firstFailure: Data_Semigroup.append(Data_Maybe_First.semigroupFirst)(v.firstFailure)(new Data_Maybe.Just({ - index: v.index, - message: v1.value0.value0, - seed: v.seed - })) - }); - }; - throw new Error("Failed pattern match at Test.QuickCheck line 112, column 9 - line 127, column 16: " + [ v1.constructor.name ]); - }; - throw new Error("Failed pattern match at Test.QuickCheck line 108, column 3 - line 108, column 48: " + [ v.constructor.name ]); - }; - var result = Control_Monad_Rec_Class.tailRec(loop)({ - seed: initialSeed, - index: 0, - successes: 0, - firstFailure: Data_Monoid.mempty(Data_Maybe_First.monoidFirst) - }); - return function __do() { - Effect_Console.log(Data_Show.show(Data_Show.showInt)(result.successes) + ("/" + (Data_Show.show(Data_Show.showInt)(n) + " test(s) passed.")))(); - return Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableFirst)(result.firstFailure)(function (v) { - return Effect_Exception.throwException(Effect_Exception.error("Test " + (Data_Show.show(Data_Show.showInt)(v.index + 1 | 0) + (" (seed " + (Data_Show.show(Data_Show.showInt)(Random_LCG.unSeed(v.seed)) + (") failed: \x0a" + v.message)))))); - })(); - }; - }; - }; - }; - }; - var quickCheck$prime = function (dictTestable) { - return function (n) { - return function (prop) { - return function __do() { - var v = Random_LCG.randomSeed(); - return quickCheckWithSeed(dictTestable)(v)(n)(prop)(); - }; - }; - }; - }; - var quickCheck = function (dictTestable) { - return function (prop) { - return quickCheck$prime(dictTestable)(100)(prop); - }; - }; - var quickCheckGen = function (dictTestable) { - return quickCheck(testableGen(dictTestable)); - }; - var assertOp = function (dictEq) { - return function (dictShow) { - return function (op) { - return function (failString) { - return function (a) { - return function (b) { - return withHelp(op(a)(b))(Data_Show.show(dictShow)(a) + (failString + Data_Show.show(dictShow)(b))); - }; - }; - }; - }; - }; - }; - var assertEquals = function (dictEq) { - return function (dictShow) { - return assertOp(dictEq)(dictShow)(Data_Eq.eq(dictEq))(" /= "); - }; - }; - exports["quickCheck"] = quickCheck; - exports["quickCheckGen"] = quickCheckGen; - exports["quickCheckWithSeed"] = quickCheckWithSeed; - exports["Testable"] = Testable; - exports["test"] = test; - exports["Success"] = Success; - exports["Failed"] = Failed; - exports["withHelp"] = withHelp; - exports["assertEquals"] = assertEquals; - exports["testableResult"] = testableResult; - exports["testableGen"] = testableGen; -})(PS["Test.QuickCheck"] = PS["Test.QuickCheck"] || {}); -(function(exports) { - "use strict"; - - exports.newImpl = function newImpl (x) { - return new URLSearchParams(x); - }; - - exports.entriesImpl = function entriesImpl (x) { - return x.entries(); - }; -})(PS["Web.URLSearchParams"] = PS["Web.URLSearchParams"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var $foreign = PS["Web.URLSearchParams"]; - var Control_Semigroupoid = PS["Control.Semigroupoid"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Iterable = PS["Data.Iterable"]; - var Data_Maybe = PS["Data.Maybe"]; - var Data_Nullable = PS["Data.Nullable"]; - var Data_Show = PS["Data.Show"]; - var Data_Tuple_Native = PS["Data.Tuple.Native"]; - var Effect = PS["Effect"]; - var Effect_Uncurried = PS["Effect.Uncurried"]; - var Effect_Unsafe = PS["Effect.Unsafe"]; - var Foreign_Object = PS["Foreign.Object"]; - var Prelude = PS["Prelude"]; - var new$prime = Effect_Uncurried.runEffectFn1($foreign.newImpl); - var entries = Effect_Uncurried.runEffectFn1($foreign.entriesImpl); - exports["new'"] = new$prime; - exports["entries"] = entries; -})(PS["Web.URLSearchParams"] = PS["Web.URLSearchParams"] || {}); -(function(exports) { - // Generated by purs version 0.12.0 - "use strict"; - var Control_Applicative = PS["Control.Applicative"]; - var Control_Apply = PS["Control.Apply"]; - var Control_Bind = PS["Control.Bind"]; - var Data_Eq = PS["Data.Eq"]; - var Data_Foldable = PS["Data.Foldable"]; - var Data_Function = PS["Data.Function"]; - var Data_Functor = PS["Data.Functor"]; - var Data_Iterable = PS["Data.Iterable"]; - var Data_Show = PS["Data.Show"]; - var Data_String_Gen = PS["Data.String.Gen"]; - var Data_Tuple = PS["Data.Tuple"]; - var Data_Tuple_Native = PS["Data.Tuple.Native"]; - var Data_Typelevel_Num = PS["Data.Typelevel.Num"]; - var Data_Typelevel_Num_Ops = PS["Data.Typelevel.Num.Ops"]; - var Data_Typelevel_Num_Reps = PS["Data.Typelevel.Num.Reps"]; - var Data_Typelevel_Num_Sets = PS["Data.Typelevel.Num.Sets"]; - var Effect = PS["Effect"]; - var Effect_Console = PS["Effect.Console"]; - var Effect_Unsafe = PS["Effect.Unsafe"]; - var Foreign_Object = PS["Foreign.Object"]; - var Prelude = PS["Prelude"]; - var Test_QuickCheck = PS["Test.QuickCheck"]; - var Test_QuickCheck_Gen = PS["Test.QuickCheck.Gen"]; - var Type_Row = PS["Type.Row"]; - var Web_URLSearchParams = PS["Web.URLSearchParams"]; - var urlSearchParamsIso = (function () { - var a$prime = Test_QuickCheck_Gen.suchThat(Data_String_Gen.genAlphaString(Test_QuickCheck_Gen.monadRecGen)(Test_QuickCheck_Gen.monadGenGen))(function (x) { - return x !== ""; - }); - return Control_Bind.bind(Test_QuickCheck_Gen.bindGen)(Test_QuickCheck_Gen.arrayOf(Control_Apply.apply(Test_QuickCheck_Gen.applyGen)(Data_Functor.map(Test_QuickCheck_Gen.functorGen)(Data_Tuple.Tuple.create)(a$prime))(a$prime)))(function (v) { - return Control_Applicative.pure(Test_QuickCheck_Gen.applicativeGen)(Effect_Unsafe.unsafePerformEffect((function () { - var xs_ = Foreign_Object.fromFoldable(Data_Foldable.foldableArray)(v); - var xs$prime = Data_Functor.map(Data_Functor.functorArray)(function (v1) { - return Data_Tuple_Native.t2(v1.value0)(v1.value1); - })(v); - return function __do() { - var v1 = Web_URLSearchParams["new'"](xs$prime)(); - var v2 = Control_Bind.bind(Effect.bindEffect)(Web_URLSearchParams.entries(v1))(Data_Iterable.toArray)(); - var ys = Data_Functor.map(Data_Functor.functorArray)(function (y) { - return new Data_Tuple.Tuple(Data_Tuple_Native.prj(Data_Tuple_Native.tupleSizeT2)(Data_Typelevel_Num_Ops.trichLt(Data_Typelevel_Num_Ops.trichD0D2))(Data_Tuple_Native.showNatD0)(Type_Row.listToCons(Type_Row.listToCons(Type_Row.listToRowNil)())())()(Data_Typelevel_Num_Sets.natD0)(Data_Typelevel_Num_Reps.d0)(y), Data_Tuple_Native.prj(Data_Tuple_Native.tupleSizeT2)(Data_Typelevel_Num_Ops.trichLt(Data_Typelevel_Num_Ops.trichD1D2))(Data_Tuple_Native.showNatD1)(Type_Row.listToCons(Type_Row.listToCons(Type_Row.listToRowNil)())())()(Data_Typelevel_Num_Sets.natD1)(Data_Typelevel_Num_Reps.d1)(y)); - })(v2); - var ys_ = Foreign_Object.fromFoldable(Data_Foldable.foldableArray)(ys); - return Test_QuickCheck.assertEquals(Foreign_Object.eqObject(Data_Eq.eqString))(Foreign_Object.showObject(Data_Show.showString))(xs_)(ys_); - }; - })())); - }); - })(); - var main = function __do() { - Effect_Console.log("Running tests...")(); - return Test_QuickCheck.quickCheckGen(Test_QuickCheck.testableResult)(urlSearchParamsIso)(); - }; - exports["main"] = main; - exports["urlSearchParamsIso"] = urlSearchParamsIso; -})(PS["Test.Main"] = PS["Test.Main"] || {}); -PS["Test.Main"].main();