squint-cljs 0.4.58 → 0.4.60
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +1 -1
- package/lib/cli.js +41 -41
- package/lib/cljs.pprint.js +156 -156
- package/lib/compiler.js +523 -523
- package/lib/compiler.node.js +30 -30
- package/lib/compiler.sci.js +1053 -1053
- package/lib/node.nrepl_server.js +15 -15
- package/lib/squint.core.umd.js +1 -1
- package/package.json +1 -1
- package/src/squint/core.js +62 -13
package/lib/node.nrepl_server.js
CHANGED
|
@@ -4,20 +4,20 @@ import "./node.js";
|
|
|
4
4
|
import "./compiler.node.js";
|
|
5
5
|
const shadow_esm_import = function(x) { return import(x) };
|
|
6
6
|
import*as esm_import$fs from"fs";import*as esm_import$net from"net";
|
|
7
|
-
var K9=function(a,b){a=a.indexOf(b);if(0>a)throw Error("out of input");return a},L9=function(a,b){if(a.length<b)throw Error("out of input");return a.slice(b)},M9=function(a,b){if(b>a.length)throw Error("out of input");return a.slice(0,b)},N9=function(a){return console.debug($APP.lp.g(" ",a))},
|
|
8
|
-
|
|
9
|
-
"version-string",a)},
|
|
10
|
-
$APP.
|
|
11
|
-
|
|
12
|
-
"ns",$APP.t.h($APP.
|
|
13
|
-
["status",new $APP.J(null,3,5,$APP.N,["error","unknown-op","done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},
|
|
14
|
-
0,null);m=$APP.C.j(m,1,null);if(null==l){k=new $APP.J(null,2,5,$APP.N,[k,m],null);break a}k=$APP.Ee.g(k,l);l=m}f=$APP.C.j(k,0,null);k=$APP.C.j(k,1,null);$APP.
|
|
15
|
-
|
|
16
|
-
|
|
7
|
+
var K9=function(a,b){a=a.indexOf(b);if(0>a)throw Error("out of input");return a},L9=function(a,b){if(a.length<b)throw Error("out of input");return a.slice(b)},M9=function(a,b){if(b>a.length)throw Error("out of input");return a.slice(0,b)},N9=function(a){return console.debug($APP.lp.g(" ",a))},vfa=function(a){return function(b,c){b=$APP.kf(b);var d=$APP.fe.g(b,$APP.FF),e=$APP.fe.g(b,ufa);c=$APP.zi.j(c,"id",d);c=$APP.r(e)?$APP.zi.j(c,"session",e):c;return a.g?a.g(b,c):a.call(null,b,c)}},xfa=function(){var a=
|
|
8
|
+
wfa;return function(b,c){b=$APP.Lm.j(b,O9,$APP.vi);return a.g?a.g(b,c):a.call(null,b,c)}},zfa=function(){var a=yfa();return function(b,c){N9($APP.F(["request",b]));return a.g?a.g(b,c):a.call(null,b,c)}},Afa=function(a){return function(b,c){N9($APP.F(["response",c]));return a.g?a.g(b,c):a.call(null,b,c)}},yfa=function(){var a=xfa();return function(b,c){return a.g?a.g(b,c):a.call(null,b,c)}},P9=function(a){return $APP.zi.j($APP.Yh(new $APP.J(null,3,5,$APP.N,["major","minor","incremental"],null),$APP.wu.h(a.split("."))),
|
|
9
|
+
"version-string",a)},Bfa=function(a,b,c){if($APP.r(a))if(a=Q9.h?Q9.h(a):Q9.call(null,a),$APP.r(a)){b=$APP.kf(b);var d=$APP.fe.g(b,$APP.s9),e=$APP.fe.g(b,$APP.l9),f=$APP.fe.g(b,$APP.u9);b=$APP.Qa;var k=$APP.hi,l=$APP.T6;$APP.Qa=e;$APP.hi=f;$APP.T6=d;try{var m=new $APP.Fa;d=$APP.Ta;e=$APP.Ua;$APP.Ta=!0;$APP.Ua=function(g){return m.append(g)};try{a.h?a.h(c):a.call(null,c)}finally{$APP.Ua=e,$APP.Ta=d}return $APP.t.h(m)}finally{$APP.T6=l,$APP.hi=k,$APP.Qa=b}}else return N9($APP.F(["Pretty-Printing is only supported for cider.nrepl.pprint/pprint"])),
|
|
10
|
+
$APP.Hs.l($APP.F([c]));else return $APP.Hs.l($APP.F([c]))},Dfa=function(a){a:{var b=$APP.jq;$APP.jq=$APP.v(R9);try{var c=$APP.Et(a,new $APP.n(null,5,[$APP.gp,$APP.fp,$APP.Rs,Cfa,$APP.tt,!0,$APP.Vs,!0,$APP.cs,!0],null));break a}finally{$APP.jq=b}c=void 0}c=$APP.kf(c);a=$APP.fe.g(c,$APP.Dt);c=$APP.fe.g(c,$APP.S);a=$APP.Sj("(async function () {\n%s\n}) ()","%s",a);$APP.Jf(R9,c);return a},Jfa=function(a,b){var c=$APP.kf(a);$APP.fe.g(c,$APP.S);a=$APP.fe.g(c,Efa);$APP.fe.g(c,$APP.Sk);$APP.fe.g(c,Ffa);$APP.fe.g(c,
|
|
11
|
+
Gfa);return Promise.resolve(a).then(Dfa).then(function(d){$APP.AF.l($APP.F(["About to eval:"]));$APP.AF.l($APP.F([d]));return eval(d)}).then(function(d){d=new $APP.n(null,2,["ns",$APP.t.h($APP.v(R9)),"value",Bfa(Hfa.h(c),Ifa.h(c),d)],null);return b.g?b.g(c,d):b.call(null,c,d)}).catch(function(d){console.error(d);var e=$APP.EF.h($APP.ij(d));e=$APP.r(e)?e:d.message;$APP.r(e)&&(e=new $APP.n(null,1,["err",[$APP.t.h(e),"\n"].join("")],null),b.g?b.g(c,e):b.call(null,c,e));d=new $APP.n(null,2,["ex",$APP.t.h(d),
|
|
12
|
+
"ns",$APP.t.h($APP.jq)],null);return b.g?b.g(c,d):b.call(null,c,d)}).finally(function(){var d=new $APP.n(null,2,["ns",$APP.t.h($APP.v(R9)),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(c,d):b.call(null,c,d)})},S9=function(a){a=$APP.kf(a);$APP.fe.g(a,$APP.S);return null},wfa=function(a,b){a=$APP.kf(a);var c=$APP.fe.g(a,O9),d=$APP.fe.g(T9,c);if($APP.r(d))return d.g?d.g(a,b):d.call(null,a,b);console.warn($APP.lp.g(" ",$APP.F(["Unhandled operation",c])));c=new $APP.n(null,1,
|
|
13
|
+
["status",new $APP.J(null,3,5,$APP.N,["error","unknown-op","done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},Kfa=function(a){return function(b,c){return a.write(U9(c))}},Lfa=function(a,b){N9($APP.F(["Connection accepted"]));b.setNoDelay(!0);var c=zfa(),d=vfa(Afa(Kfa(b))),e=$APP.Oi.h(null);b.on("data",function(f){var k=$APP.v(e);if($APP.r(k)){f=[$APP.t.h(k),$APP.t.h(f)].join("");$APP.Jf(e,null);var l=f}else l=f;a:for(f=$APP.F([$APP.xu,!0]),k=$APP.lg;;){var m=$APP.Gf.j(V9,l,f);l=$APP.C.j(m,
|
|
14
|
+
0,null);m=$APP.C.j(m,1,null);if(null==l){k=new $APP.J(null,2,5,$APP.N,[k,m],null);break a}k=$APP.Ee.g(k,l);l=m}f=$APP.C.j(k,0,null);k=$APP.C.j(k,1,null);$APP.ZE(k)||$APP.Jf(e,k);f=$APP.x(f);k=null;for(var g=m=0;;)if(g<m)l=k.ba(null,g),c(l,d),g+=1;else if(f=$APP.x(f))k=f,$APP.Zd(k)?(f=$APP.uc(k),m=$APP.vc(k),k=f,l=$APP.xd(f),f=m,m=l):(l=$APP.y(k),c(l,d),f=$APP.z(k),k=null,m=0),g=0;else return null});return b.on("close",function(f){return $APP.r(f)?N9($APP.F(["Connection lost"])):N9($APP.F(["Connection closed"]))})},
|
|
15
|
+
Gfa=new $APP.I(null,"_line","_line",232847719),Ifa=new $APP.I("nrepl.middleware.print","options","nrepl.middleware.print/options",868480159),ufa=new $APP.I(null,"session","session",1008279103),Mfa=new $APP.I(null,"lookup","lookup",1225356838),Nfa=new $APP.I(null,"load-file","load-file",-424586670),Ffa=new $APP.I(null,"_load-file?","_load-file?",-1198848711),O9=new $APP.I(null,"op","op",-1882987955),Ofa=new $APP.I(null,"describe","describe",1369790582),Efa=new $APP.I(null,"code","code",1586293142),
|
|
16
|
+
Pfa=new $APP.I(null,"eldoc","eldoc",-1321421900),Qfa=new $APP.I(null,"log_level","log_level",-1756736313),Hfa=new $APP.I("nrepl.middleware.print","print","nrepl.middleware.print/print",-1616742548),Rfa=new $APP.I(null,"clone","clone",711747572),Sfa=new $APP.I(null,"close","close",1835149582),Tfa=new $APP.I(null,"info","info",-317069002),Ufa=new $APP.I(null,"host","host",-1558485167),Vfa=new $APP.I(null,"complete","complete",-500388775);var W9=function W9(a,b){switch($APP.t.h(M9(a,1))){case "i":return a=L9(a,1),b=K9(a,"e"),new $APP.J(null,2,5,$APP.N,[parseInt(M9(a,b)),L9(a,b+1)],null);case "l":var d=a=L9(a,1);for(a=$APP.mc($APP.lg);;){if($APP.A.g($APP.t.h(M9(d,1)),"e"))return new $APP.J(null,2,5,$APP.N,[$APP.pc(a),L9(d,1)],null);var e=W9.g?W9.g(d,b):W9.call(null,d,b),f=$APP.C.j(e,0,null),k=$APP.C.j(e,1,null);e=k;a=$APP.gg.g(a,f);d=e}case "d":for(a=L9(a,1),f=$APP.kf(b),f=$APP.fe.g(f,$APP.xu),d=a,e=$APP.mc($APP.hf);;){if($APP.A.g($APP.t.h(M9(d,
|
|
17
17
|
1)),"e"))return new $APP.J(null,2,5,$APP.N,[$APP.pc(e),L9(d,1)],null);a=W9.g?W9.g(d,b):W9.call(null,d,b);d=$APP.C.j(a,0,null);k=$APP.C.j(a,1,null);k=W9.g?W9.g(k,b):W9.call(null,k,b);a=$APP.C.j(k,0,null);k=$APP.C.j(k,1,null);d=$APP.r(f)?$APP.vi.h(d):d;a=$APP.Ug.j(e,d,a);d=k;e=a}default:return b=K9(a,":"),f=parseInt(M9(a,b)),a=L9(a,b+1),new $APP.J(null,2,5,$APP.N,[$APP.t.h(M9(a,f)),L9(a,f)],null)}},V9=function V9(a){for(var c=[],d=arguments.length,e=0;;)if(e<d)c.push(arguments[e]),e+=1;else break;return V9.l(arguments[0],
|
|
18
18
|
1<c.length?new $APP.Zc(c.slice(1),0,null):null)};V9.l=function(a,b){try{return W9(a,b)}catch(c){if(c instanceof Error)return new $APP.J(null,2,5,$APP.N,[null,a],null);throw c;}};V9.m=1;V9.o=function(a){var b=$APP.y(a);a=$APP.z(a);return this.l(b,a)};
|
|
19
|
-
var U9=function U9(a){for(;;){if("string"===typeof a)return[$APP.t.h(Buffer.from(a).length),":",a].join("");if(a instanceof $APP.I||a instanceof $APP.w)a=[function(){var c=$APP.Oe(a);return $APP.r(c)?[c,"/"].join(""):null}(),$APP.Xh(a)].join("");else return"number"===typeof a?["i",$APP.t.h(a),"e"].join(""):$APP.Td(a)||$APP.Yd(a)||null==a?["l",$APP.t.h($APP.Gf.g($APP.t,$APP.ui.g(U9,a))),"e"].join(""):$APP.
|
|
20
|
-
0,null);c=$APP.C.j(c,1,null);return[$APP.t.h(U9.h?U9.h(d):U9.call(null,d)),$APP.t.h(U9.h?U9.h(c):U9.call(null,c))].join("")}}(a),$APP.
|
|
21
|
-
var
|
|
22
|
-
2,["nbb-nrepl",P9("TODO"),"node",P9(process.version)],null),"aux",$APP.hf,"ops",$APP.Yh($APP.ui.g($APP.Xh,$APP.Mh(T9)),$APP.
|
|
23
|
-
":",$APP.t.h(f)].join("")]));try{return esm_import$fs.writeFileSync(".nrepl-port",$APP.t.h(f))}catch(k){return console.warn($APP.lp.g(" ",$APP.F(["Could not write .nrepl-port",k])))}});return $APP.Jf(
|
|
19
|
+
var U9=function U9(a){for(;;){if("string"===typeof a)return[$APP.t.h(Buffer.from(a).length),":",a].join("");if(a instanceof $APP.I||a instanceof $APP.w)a=[function(){var c=$APP.Oe(a);return $APP.r(c)?[c,"/"].join(""):null}(),$APP.Xh(a)].join("");else return"number"===typeof a?["i",$APP.t.h(a),"e"].join(""):$APP.Td(a)||$APP.Yd(a)||null==a?["l",$APP.t.h($APP.Gf.g($APP.t,$APP.ui.g(U9,a))),"e"].join(""):$APP.Wd(a)?["d",$APP.t.h($APP.Gf.g($APP.t,$APP.ui.g(function(){return function(c){var d=$APP.C.j(c,
|
|
20
|
+
0,null);c=$APP.C.j(c,1,null);return[$APP.t.h(U9.h?U9.h(d):U9.call(null,d)),$APP.t.h(U9.h?U9.h(c):U9.call(null,c))].join("")}}(a),$APP.xF.g($APP.y,a)))),"e"].join(""):null}};var R9=$APP.Oi.h($APP.jq),Q9=new $APP.n(null,1,["cider.nrepl.pprint/pprint",$APP.B9],null);$APP.Oi.h(!1);
|
|
21
|
+
var Cfa=$APP.Oi.h($APP.hf),T9=$APP.vh([Mfa,Sfa,Nfa,Pfa,Rfa,Ofa,Tfa,Vfa,$APP.GF],[S9,function(a,b){var c=new $APP.n(null,1,["status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},function(a){a=$APP.kf(a);$APP.fe.g(a,$APP.Sk);return null},S9,function(a,b){var c=new $APP.n(null,2,["new-session",$APP.t.h($APP.WE()),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},function(a,b){var c=new $APP.n(null,4,["versions",new $APP.n(null,
|
|
22
|
+
2,["nbb-nrepl",P9("TODO"),"node",P9(process.version)],null),"aux",$APP.hf,"ops",$APP.Yh($APP.ui.g($APP.Xh,$APP.Mh(T9)),$APP.Zt.h($APP.hf)),"status",new $APP.J(null,1,5,$APP.N,["done"],null)],null);return b.g?b.g(a,c):b.call(null,a,c)},S9,function(){return null},function(a,b){a=$APP.kf(a);var c=$APP.fe.g(a,$APP.S);$APP.yF.l($APP.F([$APP.S,c]));return Jfa($APP.zi.j(a,$APP.S,$APP.v(R9)),b)}]),Wfa=$APP.Oi.h(null);export const startServer=function(a){return Promise.resolve(null).then(function(){var b=function(){var e=$APP.CF.h(a);return $APP.r(e)?e:0}(),c=function(){var e=Ufa.h(a);return $APP.r(e)?e:"127.0.0.1"}();(function(){var e=$APP.$a(a)?a.bg:Qfa.h(a);return $APP.r(e)?e:"info"})();var d=esm_import$net.createServer($APP.Lk.g(Lfa,$APP.hf));d.listen(b,c,function(){var e=d.address(),f=e.port;e=e.address;$APP.AF.l($APP.F([["nREPL server started on port ",$APP.t.h(f)," on host ",$APP.t.h(e)," - nrepl://",$APP.t.h(e),
|
|
23
|
+
":",$APP.t.h(f)].join("")]));try{return esm_import$fs.writeFileSync(".nrepl-port",$APP.t.h(f))}catch(k){return console.warn($APP.lp.g(" ",$APP.F(["Could not write .nrepl-port",k])))}});return $APP.Jf(Wfa,d)})};
|
package/lib/squint.core.umd.js
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
var squint;(squint||={}).core=(()=>{var B=Object.defineProperty;var Ce=Object.getOwnPropertyDescriptor;var Fe=Object.getOwnPropertyNames;var Ve=Object.prototype.hasOwnProperty;var We=(e,t)=>{for(var r in t)B(e,r,{get:t[r],enumerable:!0})},Je=(e,t,r,n)=>{if(t&&typeof t=="object"||typeof t=="function")for(let o of Fe(t))!Ve.call(e,o)&&o!==r&&B(e,o,{get:()=>t[o],enumerable:!(n=Ce(t,o))||n.enumerable});return e};var De=e=>Je(B({},"__esModule",{value:!0}),e);var sn={};We(sn,{Atom:()=>pe,Cons:()=>ce,IIterable:()=>Y,IIterable__iterator:()=>ie,LazySeq:()=>xr,NaN_QMARK_:()=>$r,PROTOCOL_SENTINEL:()=>At,_:()=>Ze,_GT_:()=>Ue,_PLUS_:()=>Xe,_iterator:()=>N,aclone:()=>jr,add_watch:()=>Nr,alength:()=>Rr,apply:()=>Ot,array_QMARK_:()=>ge,aset:()=>Kr,assoc:()=>v,assoc_BANG_:()=>A,assoc_in:()=>Z,assoc_in_BANG_:()=>rt,atom:()=>Mt,boolean$:()=>Ar,boolean_QMARK_:()=>en,bounded_count:()=>tn,butlast:()=>_r,coll_QMARK_:()=>Fr,comp:()=>nt,compare:()=>G,complement:()=>ye,concat:()=>we,conj:()=>H,conj_BANG_:()=>z,cons:()=>se,constantly:()=>kt,contains_QMARK_:()=>te,count:()=>Q,counted_QMARK_:()=>qe,cycle:()=>Dt,dec:()=>ft,deref:()=>xe,disj:()=>ot,disj_BANG_:()=>ee,dissoc:()=>it,dissoc_BANG_:()=>ut,distinct:()=>Ut,doall:()=>Sr,dorun:()=>Qr,drop:()=>T,drop_last:()=>hr,drop_while:()=>Qe,empty:()=>ve,empty_QMARK_:()=>fr,es6_iterator:()=>O,even_QMARK_:()=>de,every_QMARK_:()=>je,every_pred:()=>Gr,ex_cause:()=>Dr,ex_data:()=>Wr,ex_info:()=>Ur,ex_message:()=>Jr,false_QMARK_:()=>wr,ffirst:()=>st,filter:()=>C,filterv:()=>ht,find:()=>rn,first:()=>R,fn_QMARK_:()=>Yr,fnil:()=>W,frequencies:()=>pr,get:()=>h,get_in:()=>Se,group_by:()=>ar,identical_QMARK_:()=>Vt,identity:()=>me,inc:()=>re,int_QMARK_:()=>Ye,integer_QMARK_:()=>Xr,interleave:()=>Ae,interpose:()=>Lt,into:()=>Re,into_array:()=>Te,iterable:()=>f,iterate:()=>Lr,js_keys:()=>qr,js_obj:()=>Er,juxt:()=>Pr,keep:()=>er,keep_indexed:()=>gt,key:()=>Me,keys:()=>ze,last:()=>at,lazy:()=>s,list:()=>Gt,list_QMARK_:()=>Tt,map:()=>M,map_QMARK_:()=>Tr,map_indexed:()=>yt,mapcat:()=>Bt,mapv:()=>he,max:()=>ke,max_key:()=>un,merge:()=>qt,merge_with:()=>Ct,meta:()=>Zr,min:()=>kr,min_key:()=>on,mod:()=>nn,neg_QMARK_:()=>vr,next:()=>Ge,nil_QMARK_:()=>mt,not:()=>le,not_any_QMARK_:()=>ur,not_every_QMARK_:()=>Ht,nth:()=>oe,number_QMARK_:()=>Pe,object_QMARK_:()=>et,odd_QMARK_:()=>It,parse_long:()=>cn,partial:()=>Jt,partition:()=>Yt,partition_all:()=>zt,partition_by:()=>$t,pos_QMARK_:()=>Mr,pr_str:()=>ae,println:()=>ne,prn:()=>vt,rand_int:()=>Ie,rand_nth:()=>cr,range:()=>Rt,re_find:()=>Qt,re_matches:()=>Kt,re_seq:()=>Le,reduce:()=>L,reduce_kv:()=>Ir,reduced:()=>pt,reduced_QMARK_:()=>xt,regexp_QMARK_:()=>Vr,remove:()=>dt,remove_watch:()=>Or,repeat:()=>V,repeatedly:()=>lr,replace:()=>ir,reset_BANG_:()=>_e,rest:()=>lt,reverse:()=>tr,satisfies_QMARK_:()=>He,second:()=>ct,select_keys:()=>Pt,seq:()=>$,seqable_QMARK_:()=>ue,set:()=>Nt,shuffle:()=>or,some:()=>Oe,some_QMARK_:()=>mr,some_fn:()=>Br,sort:()=>Ne,sort_by:()=>nr,split_at:()=>dr,split_with:()=>yr,str:()=>wt,string_QMARK_:()=>D,subs:()=>Be,subvec:()=>St,swap_BANG_:()=>Et,system_time:()=>Ft,t:()=>w,take:()=>k,take_nth:()=>Wt,take_while:()=>Ke,to_array:()=>zr,true_QMARK_:()=>gr,update:()=>Xt,update_BANG_:()=>J,update_in:()=>Zt,val:()=>Ee,vals:()=>Cr,vec:()=>E,vector:()=>F,vector_QMARK_:()=>jt,warn_on_lazy_reusage_BANG_:()=>_t,with_meta:()=>Hr,zero_QMARK_:()=>br});function c(e){if(e==null||e instanceof Function)return e;let t=typeof e;return t==="string"?(r,n)=>h(r,e,n):t==="object"?(r,n)=>h(e,r,n):e}globalThis.toFn=c;function Ue(e,t){return e>t}function Xe(...e){return e.reduce((t,r)=>t+r,0)}function Ze(...e){return e.length==1?0-e[0]:e.reduce((t,r)=>t-r)}function He(e,t){return t[e]}function A(e,t,r,...n){if(n.length%2!==0)throw new Error("Illegal argument: assoc expects an odd number of arguments.");switch(p(e)){case x:e.set(t,r);for(let o=0;o<n.length;o+=2)e.set(n[o],n[o+1]);break;case _:case y:e[t]=r;for(let o=0;o<n.length;o+=2)e[n[o]]=n[o+1];break;default:throw new Error(`Illegal argument: assoc! expects a Map, Array, or Object as the first argument, but got ${typeof e}.`)}return e}function X(e){switch(p(e)){case x:return new Map(e.entries());case _:return[...e];case y:return{...e};default:throw new Error(`Don't know how to copy object of type ${typeof e}.`)}}function v(e,t,r,...n){e||(e={});let o=X(e);return A(o,t,r,...n),o}const x=1,_=2,y=3,b=4,g=5,S=6;function j(e){switch(e){case x:return new Map;case _:return[];case y:return{};case b:return new I;case g:return new Set;case S:return s(function*(){})}}function P(e){return e.constructor===Object}function et(e){return e!=null&&P(e)}function p(e){if(e!=null){if(P(e))return y;if(e instanceof Map)return x;if(e instanceof Set)return g;if(e instanceof I)return b;if(Array.isArray(e))return _;if(e instanceof q)return S;if(e instanceof Object)return y}}function tt(e,t,r,n,o){let u=p(r);if(u!==x&&u!==_&&u!==y)throw new Error(`Illegal argument: ${t} expects the first argument to be a Map, Array, or Object.`);const i=[r];let l=r;for(let a=0;a<n.length-1;a+=1){let m=n[a],d;l instanceof Map?d=l.get(m):d=l[m],d||(d=j(u)),i.push(d),l=d}i.push(o);for(let a=i.length-2;a>=0;a-=1)i[a]=e(i[a],n[a],i[a+1]);return i[0]}function Z(e,t,r){return tt(v,"assoc-in",e,t,r)}function rt(e,t,r){var n=e;let o=p(e);for(const u of t.splice(0,t.length-1)){let i=h(n,u);i===void 0&&(i=j(o),A(n,u,i)),n=i}return A(n,t[t.length-1],r),e}function nt(...e){if(e=e.map(c),e.length===0)return me;if(e.length===1)return e[0];let[t,...r]=e.slice().reverse();return function(...n){let o=t(...n);for(const u of r)o=u(o);return o}}function z(...e){if(e.length===0)return F();let[t,...r]=e;switch(t==null&&(t=[]),p(t)){case g:for(const n of r)t.add(n);break;case b:t.unshift(...r.reverse());break;case _:t.push(...r);break;case x:for(const n of r)Array.isArray(n)?t.set(n[0],n[1]):f(n).forEach(o=>{t.set(o[0],o[1])});break;case y:for(const n of r)Array.isArray(n)?t[n[0]]=n[1]:Object.assign(t,n);break;default:throw new Error("Illegal argument: conj! expects a Set, Array, List, Map, or Object as the first argument.")}return t}function H(...e){if(e.length===0)return F();let[t,...r]=e;switch(t==null&&(t=[]),p(t)){case g:return new Set([...t,...r]);case b:return new I(...r.reverse(),...t);case _:return[...t,...r];case x:const n=new Map(t);for(const u of r)Array.isArray(u)?n.set(u[0],u[1]):f(u).forEach(i=>{n.set(i[0],i[1])});return n;case S:return s(function*(){yield*r,yield*t});case y:const o={...t};for(const u of r)Array.isArray(u)?o[u[0]]=u[1]:Object.assign(o,u);return o;default:throw new Error("Illegal argument: conj expects a Set, Array, List, Map, or Object as the first argument.")}}function ee(e,...t){for(const r of t)e.delete(r);return e}function ot(e,...t){let r=new Set([...e]);return ee(r,...t)}function te(e,t){switch(p(e)){case g:case x:return e.has(t);case void 0:return!1;default:return t in e}}function ut(e,...t){for(const r of t)delete e[r];return e}function it(e,...t){let r={...e};for(const n of t)delete r[n];return r}function re(e){return e+1}function ft(e){return e-1}function ne(...e){console.log(...e)}function oe(e,t,r){if(e){var n=void 0;if(Array.isArray(e))n=e[t];else{let o=f(e),u=0;for(let i of o)if(u++==t){n=i;break}}if(n!==void 0)return n}return r}function h(e,t,r=void 0){if(e==null)return r;let n;if(P(e))return n=e[t],n===void 0?r:n;switch(p(e)){case g:e.has(t)&&(n=t);break;case x:n=e.get(t);break;case _:n=e[t];break;default:if(e.get instanceof Function)try{n=e.get(t);break}catch{}n=e[t];break}return n!==void 0?n:r}function ue(e){return typeof e=="string"||e===null||e===void 0||e instanceof Object&&Symbol.iterator in e}function f(e){return e==null?[]:ue(e)?e:Object.entries(e)}const Y=Symbol("Iterable"),ie=Symbol.iterator;function N(e){return e[Symbol.iterator]()}const O=N;function $(e){let t=f(e);return t.length===0||t.size===0?null:t}function R(e){let[t]=f(e);return t}function ct(e){let[t,r]=f(e);return r}function st(e){return R(R(e))}function lt(e){return s(function*(){let t=!0;for(const r of f(e))t?t=!1:yield r})}class K{value;constructor(t){this.value=t}_deref(){return this.value}}function at(e){switch(e=f(e),p(e)){case _:return e[e.length-1];default:let t;for(const r of e)t=r;return t}}function pt(e){return new K(e)}function xt(e){return e instanceof K}function L(e,t,r){e=c(e);let n,o;if(r===void 0){let u=f(t)[Symbol.iterator]();o=u.next().value,n=u}else o=t,n=f(r);if(o instanceof K)return o.value;for(const u of n)if(o=e(o,u),o instanceof K){o=o.value;break}return o}var fe=!1;function _t(){fe=!0}class q{constructor(t){this.gen=t,this.usages=0}[Symbol.iterator](){if(this.usages++,this.usages>=2&&fe)try{throw new Error}catch(t){console.warn("Re-use of lazy value",t.stack)}return this.gen()}}q.prototype[Y]=!0;function s(e){return new q(e)}class ce{constructor(t,r){this.x=t,this.coll=r}*[Symbol.iterator](){yield this.x,yield*f(this.coll)}}function se(e,t){return new ce(e,t)}function M(e,...t){switch(e=c(e),t.length){case 0:throw new Error("map with 2 arguments is not supported yet");case 1:return s(function*(){for(const r of f(t[0]))yield e(r)});default:return s(function*(){const r=t.map(n=>O(f(n)));for(;;){let n=[];for(const o of r){const u=o.next();if(u.done)return;n.push(u.value)}yield e(...n)}})}}function C(e,t){return e=c(e),s(function*(){for(const r of f(t))w(e(r))&&(yield r)})}function ht(e,t){return[...C(e,t)]}function dt(e,t){return C(ye(e),t)}function yt(e,t){e=c(e);let r=[],n=0;for(const o of f(t))r.push(e(n,o)),n++;return r}function gt(e,t){e=c(e);let r=[],n=0;for(const o of f(t)){let u=e(n,o);w(u)&&r.push(u),n++}return r}function wt(...e){return e.join("")}function le(e){return!e}function mt(e){return e==null}const At={};function bt(e){return e===null?"null":JSON.stringify(e,(t,r)=>{switch(p(r)){case g:case S:return[...r];case x:return Object.fromEntries(r);default:return r}})}function ae(...e){return e.map(bt).join(" ")}function vt(...e){ne(ae(...e))}function pe(e){this.val=e,this._watches={},this._deref=()=>this.val,this._hasWatches=!1,this._reset_BANG_=t=>{let r=this.val;if(this.val=t,this._hasWatches)for(let n of Object.entries(this._watches)){let o=n[0],u=n[1];u(o,this,r,t)}return t},this._add_watch=(t,r)=>{this._watches[t]=r,this._hasWatches=!0},this._remove_watch=t=>{delete this._watches[t]}}function Mt(e){return new pe(e)}function xe(e){return e._deref()}function _e(e,t){e._reset_BANG_(t)}function Et(e,t,...r){t=c(t);const n=t(xe(e),...r);return _e(e,n),n}function Rt(e,t,r){return s(function*(){let n=e,o=t,u=r;t===void 0&&(n=0,o=e);let i=n||0;for(u=r||1;o===void 0||i<o;)yield i,i+=u})}function Kt(e,t){let r=e.exec(t);return r&&t===r[0]?r.length===1?r[0]:r:null}function Qt(e,t){if(D(t)){let r=e.exec(t);return r!=null?r.length===1?r[0]:[...r]:null}else throw new TypeError("re-find must match against a string.")}function St(e,t,r){return e.slice(t,r)}function F(...e){return e}function jt(e){return p(e)===_}function he(...e){return[...M(...e)]}function E(e){return ge(e)?e:[...f(e)]}function Nt(e){return new Set(f(e))}function Ot(e,...t){e=c(e);const r=t.slice(0,t.length-1),n=t[t.length-1];return e(...r,...n)}function de(e){return e%2==0}function It(e){return!de(e)}function ye(e){return e=c(e),(...t)=>le(e(...t))}function kt(e){return(...t)=>e}class I extends Array{constructor(...t){super(),this.push(...t)}}function Tt(e){return p(e)===b}function Gt(...e){return new I(...e)}function ge(e){return Array.isArray(e)}function we(...e){return s(function*(){for(const t of e)yield*f(t)})}function Bt(e,...t){return we(...M(e,...t))}function me(e){return e}function Ae(...e){return s(function*(){const t=e.map(r=>O(f(r)));for(;;){let r=[];for(const n of t){const o=n.next();if(o.done)return;r.push(o.value)}yield*r}})}function Lt(e,t){return T(1,Ae(V(e),t))}function Pt(e,t){const r=p(e),n=j(r)||{};for(const o of t){const u=h(e,o);u!=null&&A(n,o,u)}return n}function zt(e,...t){let r=e,n=t[0];return t.length===2&&([r,n]=t),be(e,r,[],n,!0)}function Yt(e,...t){let r=e,n=[],o=t[0];return t.length===2?[r,o]=t:t.length>2&&([r,n,o]=t),be(e,r,n,o,!1)}function be(e,t,r,n,o){return s(function*(){let u=[],i=0;for(let l of f(n))i<e&&(u.push(l),u.length===e&&(yield u,u=t<e?u.slice(t):[])),i++,i===t&&(i=0);u.length>0&&(u.length===e||o?yield u:r.length&&(u.push(...r.slice(0,e-u.length)),yield u))})}function $t(e,t){return e=c(e),s(function*(){let r=O(t),n=r.next();n.done&&(yield*null);let o=n.value,u=e(o),i=[o],l=[];for(;;){let a=r.next();if(a.done){yield i;break}let m=a.value,d=e(m);u==d?i.push(m):(yield i,l.push(m),i=l,u=d,l=[])}})}function ve(e){const t=p(e);if(t!=null)return j(t);throw new Error(`Can't create empty of ${typeof e}`)}function qt(...e){const t=e[0];let r;return t==null?r={}:r=Re(ve(t),t),z(r,...e.slice(1))}function Me(e){return e[0]}function Ee(e){return e[1]}function Ct(e,...t){e=c(e);var r=!1;for(const n of t)if(n!=null){r=!0;break}if(r){let n=(u,i)=>{let l=Me(i),a=Ee(i);return te(u,l)?v(u,l,e(h(u,l),a)):v(u,l,a)};return L((u,i)=>L(n,u||{},$(i)),t)}else return null}function Ft(){return performance.now()}function Re(...e){switch(e.length){case 0:return[];case 1:return e[0];default:return H(e[0]??[],...f(e[1]))}}function Vt(e,t){return e===t}function V(...e){if(e.length==0||e.length>2)throw new Error(`Invalid arity: ${e.length}`);return{[Y]:!0,[ie]:e.length==1?function*(){let t=e[0];for(;;)yield t}:function*(){let[t,r]=e;for(var n=0;n<t;n++)yield r}}}function k(e,t){return s(function*(){let r=e-1;for(const n of f(t))if(r-->=0&&(yield n),r<0)return})}function Ke(e,t){return e=c(e),s(function*(){for(const r of f(t))if(w(e(r)))yield r;else return})}function Wt(e,t){return e<=0?V(R(t)):s(function*(){let r=0;for(let n of f(t))r%e===0&&(yield n),r++})}function Jt(e,...t){return e=c(e),function(...r){return e(...t,...r)}}function Dt(e){return s(function*(){for(;;)yield*e})}function T(e,t){return s(function*(){let r=N(f(t));for(let n=0;n<e;n++)r.next();yield*r})}function Qe(e,t){return e=c(e),s(function*(){let r=N(f(t));for(;;){let n=r.next();if(n.done)break;let o=n.value;if(!w(e(o))){yield o;break}}yield*r})}function Ut(e){return s(function*(){let t=new Set;for(const r of f(e))t.has(r)||(yield r),t.add(r)})}function Xt(e,t,r,...n){return r=c(r),v(e,t,r(h(e,t),...n))}function Se(e,t,r){let n=e;for(const o of t)n=h(n,o);return n===void 0?r:n}function Zt(e,t,r,...n){return r=c(r),Z(e,t,r(Se(e,t),...n))}function W(e,t,...r){return e=c(e),function(n,...o){return n?e(n,...r,...o):e(t,...r,...o)}}function je(e,t){e=c(e);for(let r of f(t))if(!e(r))return!1;return!0}function Ht(e,t){return!je(e,t)}function er(e,t){return e=c(e),s(function*(){for(const r of f(t)){const n=e(r);w(n)&&(yield n)}})}function tr(e){return Array.isArray(e)?e.reverse():[...e].reverse()}function Ne(e,t){return t===void 0&&(t=e,e=void 0),e=c(e),[...t].sort(e||G)}function rr(e){return e===G?e:(t,r)=>{let n=e(t,r);return Pe(n)?n:n?-1:e(r,t)?1:0}}function nr(e,t,r){return r===void 0&&(r=t,t=G),e=c(e),t=c(t),Ne((n,o)=>{let u=rr(t),i=e(n),l=e(o);return u(i,l)},r)}function or(e){return[...e].sort(function(t,r){return Math.random()-.5})}function Oe(e,t){e=c(e);for(const r of f(t)){const n=e(r);if(w(n))return n}}function ur(e,t){return e=c(e),!Oe(e,t)}function ir(e,t){return(Array.isArray(t)?he:M)(n=>{const o=e[n];return o!==void 0?o:n},t)}function fr(e){return!$(e)}function Ie(e){return Math.floor(Math.random()*e)}function cr(e){let t=Ie(Q(e));return oe(e,t)}function sr(e){return s(function*(){for(;;)yield e()})}function lr(e,t){t===void 0&&(t=e,e=void 0);const r=sr(t);return e?k(e,r):r}function J(e,t,r,...n){const o=h(e,t);return A(e,t,r(o,...n))}function ar(e,t){const r={};for(const n of f(t)){const o=e(n);J(r,o,W(z,[]),n)}return r}function pr(e){const t={},r=W(re,0);for(const n of f(e))J(t,n,r);return t}class xr{constructor(t){this.f=t,this.res=void 0}*[Symbol.iterator](){this.res===void 0&&(this.res=this.f(),this.f=null),yield*f(this.res)}}function _r(e){let t=[...f(e)];return t.pop(),t.length>0?t:null}function hr(...e){let[t,r]=e.length>1?e:[1,e[0]];return M((n,o)=>n,r,T(t,r))}function dr(e,t){return[k(e,t),T(e,t)]}function yr(e,t){return[Ke(e,t),Qe(e,t)]}function Q(e){if(!e)return 0;const t=e.length||e.size;if(typeof t=="number")return t;let r=0;for(const n of f(e))r++;return r}function gr(e){return e===!0}function wr(e){return e===!1}function mr(e){return e!=null}function Ar(e){return!!e}function br(e){return e===0}function vr(e){return e<0}function Mr(e){return e>0}function Er(...e){var t=0;let r={};for(;!(t>=e.length);)r[e[t]]=e[t+1],t=t+2;return r}function Rr(e){return e.length}function Kr(e,t,r,...n){if(n.length==0)return e[t]=r,r;{let o=[t,r,...n],u=o[o.length-1],i=e,l=0,a=o.length-2;for(;l<a;l++)i=i[o[l]];return i[o[l]]=u,r}}function Qr(e){for(const t of f(e));return null}function Sr(e){return E(e)}function jr(e){return[...e]}function Nr(e,t,r){return e._add_watch(t,r)}function Or(e,t){return e._remove_watch(t)}function Ir(e,t,r){if(!r)return t;var n=t;for(let o of Object.entries(r))n=e(n,o[0],o[1]);return n}function ke(e,t,...r){return t==null?e:Math.max(e,t,...r)}function kr(e,t,...r){return t==null?e:Math.min(e,t,...r)}function Tr(e){return e instanceof Object}function Gr(...e){return(...t)=>{for(let r of e)for(let n of t)if(!r(n))return!1;return!0}}function Br(...e){return(...t)=>{for(let r of e)for(let n of t){let o=r(n);if(o)return o}}}function Te(e,t){return E(t||e)}function Lr(e,t){var r=t;return s(function*(){for(;;)yield r,r=e(r)})}function Pr(...e){return e=e.map(c),(...t)=>{let r=[];for(let n of e)r.push(n(...t));return r}}function Ge(e){if(Array.isArray(e)){let t=e.slice(1);return t.length>0?t:null}else return Ge(E(e))}function G(e,t){if(e===t)return 0;if(e==null)return-1;if(t==null)return 1;if(typeof e=="number"){if(typeof t=="number")return e===t?0:e<t?-1:1;throw new Error("comparing number to other type")}else throw new Error("comparing number to other type")}function zr(e){return Te(e)}function w(e){return e!=null&&e!==!1}function Be(e,t,r){return e.substring(t,r)}function Yr(e){return typeof e=="function"}function*Le(e,t){let r=e.exec(t);if(r){let n=r[0],o=r.length===1?n:E(r);yield*se(o,s(function*(){let u=r.index+ke(1,n.length);u<=t.length&&(yield*Le(e,Be(t,u)))}))}}function $r(e){return Number.isNaN(e)}function Pe(e){return typeof e=="number"}function ze(e){return e?Object.keys(e):null}function qr(e){return ze(e)}function Cr(e){return e?Object.values(e):null}function D(e){return typeof e=="string"}function Fr(e){return p(e)!=null}function Vr(e){return e instanceof RegExp}class U extends Error{constructor(t,r,n){super(t),this._data=r,this._cause=n}}function Wr(e){return e instanceof U?e._data:null}function Jr(e){return e instanceof Error?e.message:null}function Dr(e){return e instanceof U?e._cause:null}function Ur(e,t,r){return new U(e,t,r)}function Ye(e){return Number.isInteger(e)}const Xr=Ye,$e=Symbol("meta");function Zr(e){return e instanceof Object?e[$e]:null}function Hr(e,t){let r=X(e);return r[$e]=t,r}function en(e){return e===!0||e===!1}function qe(e){switch(p(e)){case g:return!0}return!1}function tn(e,t){return qe(t)?Q(t):Q(k(e,t))}function rn(e,t){let r=h(e,t);if(r!==void 0)return[t,r]}function nn(e,t){return(e%t+t)%t}function on(e,t,...r){if(r.length==0)return t;var n=e(t),o=t;return r.forEach(u=>{var i=e(u);i<=n&&(n=i,o=u)}),o}function un(e,t,...r){if(r.length==0)return t;var n=e(t),o=t;return r.forEach(u=>{var i=e(u);i>=n&&(n=i,o=u)}),o}function fn(e){throw new Error(`Expected string, got: ${typeof e}`)}function cn(e){if(D(e)){if(/^[+-]?\d+$/.test(e)){let t=parseInt(e);if(Number.MIN_SAFE_INTEGER<=t<=Number.MAX_SAFE_INTEGER)return t}return null}return fn(e)}return De(sn);})();
|
|
1
|
+
var squint;(squint||={}).core=(()=>{var z=Object.defineProperty;var Ve=Object.getOwnPropertyDescriptor;var We=Object.getOwnPropertyNames;var Je=Object.prototype.hasOwnProperty;var De=(e,t)=>{for(var r in t)z(e,r,{get:t[r],enumerable:!0})},Ue=(e,t,r,n)=>{if(t&&typeof t=="object"||typeof t=="function")for(let o of We(t))!Je.call(e,o)&&o!==r&&z(e,o,{get:()=>t[o],enumerable:!(n=Ve(t,o))||n.enumerable});return e};var Xe=e=>Ue(z({},"__esModule",{value:!0}),e);var xn={};De(xn,{Atom:()=>_e,Cons:()=>le,IIterable:()=>q,IIterable__iterator:()=>fe,LazySeq:()=>_r,NaN_QMARK_:()=>Cr,PROTOCOL_SENTINEL:()=>gt,_:()=>et,_GT_:()=>Ze,_PLUS_:()=>He,_iterator:()=>I,aclone:()=>Nr,add_watch:()=>Or,alength:()=>Kr,apply:()=>It,array_QMARK_:()=>Ae,aset:()=>Qr,assoc:()=>M,assoc_BANG_:()=>g,assoc_in:()=>H,assoc_in_BANG_:()=>ot,atom:()=>Et,boolean$:()=>gr,boolean_QMARK_:()=>rn,bounded_count:()=>nn,butlast:()=>hr,coll_QMARK_:()=>Wr,comp:()=>ut,compare:()=>$,complement:()=>me,concat:()=>be,conj:()=>ee,conj_BANG_:()=>Y,cons:()=>ae,constantly:()=>kt,contains_QMARK_:()=>re,count:()=>S,counted_QMARK_:()=>Ce,cycle:()=>Ut,dec:()=>st,deref:()=>he,disj:()=>it,disj_BANG_:()=>te,dissoc:()=>ct,dissoc_BANG_:()=>ft,distinct:()=>Xt,doall:()=>jr,dorun:()=>Sr,drop:()=>P,drop_last:()=>dr,drop_while:()=>je,empty:()=>Ee,empty_QMARK_:()=>cr,es6_iterator:()=>T,even_QMARK_:()=>we,every_QMARK_:()=>Oe,every_pred:()=>Br,ex_cause:()=>Xr,ex_data:()=>Dr,ex_info:()=>Zr,ex_message:()=>Ur,false_QMARK_:()=>Ar,ffirst:()=>at,filter:()=>F,filterv:()=>dt,find:()=>on,first:()=>R,fn_QMARK_:()=>qr,fnil:()=>J,frequencies:()=>xr,get:()=>d,get_in:()=>Ne,group_by:()=>pr,identical_QMARK_:()=>Wt,identity:()=>ge,inc:()=>ne,int_QMARK_:()=>Ye,integer_QMARK_:()=>Hr,interleave:()=>ve,interpose:()=>Pt,into:()=>Qe,into_array:()=>Be,iterable:()=>f,iterate:()=>Pr,js_keys:()=>Fr,js_obj:()=>Rr,juxt:()=>$r,keep:()=>tr,keep_indexed:()=>mt,key:()=>Re,keys:()=>ze,last:()=>pt,lazy:()=>s,list:()=>Bt,list_QMARK_:()=>Gt,map:()=>E,map_QMARK_:()=>Gr,map_indexed:()=>wt,mapcat:()=>Lt,mapv:()=>ye,max:()=>Ge,max_key:()=>cn,merge:()=>Ct,merge_with:()=>Ft,meta:()=>en,min:()=>kr,min_key:()=>fn,mod:()=>un,neg_QMARK_:()=>Mr,next:()=>zr,nil_QMARK_:()=>bt,not:()=>pe,not_any_QMARK_:()=>ir,not_every_QMARK_:()=>er,nth:()=>ue,number_QMARK_:()=>$e,object_QMARK_:()=>rt,odd_QMARK_:()=>Tt,parse_long:()=>ln,partial:()=>Dt,partition:()=>Yt,partition_all:()=>zt,partition_by:()=>qt,pos_QMARK_:()=>Er,pr_str:()=>xe,println:()=>oe,prn:()=>Mt,quot:()=>pn,rand_int:()=>ke,rand_nth:()=>sr,range:()=>Kt,re_find:()=>St,re_matches:()=>Qt,re_seq:()=>Pe,reduce:()=>Q,reduce_kv:()=>Tr,reduced:()=>xt,reduced_QMARK_:()=>_t,regexp_QMARK_:()=>Jr,remove:()=>yt,remove_watch:()=>Ir,repeat:()=>W,repeatedly:()=>ar,replace:()=>fr,reset_BANG_:()=>de,rest:()=>ce,reverse:()=>rr,satisfies_QMARK_:()=>tt,second:()=>lt,select_keys:()=>$t,seq:()=>k,seqable_QMARK_:()=>ie,set:()=>Ot,shuffle:()=>ur,some:()=>Te,some_QMARK_:()=>br,some_fn:()=>Lr,sort:()=>Ie,sort_by:()=>or,split_at:()=>yr,split_with:()=>wr,str:()=>At,string_QMARK_:()=>U,subs:()=>Le,subvec:()=>jt,swap_BANG_:()=>Rt,system_time:()=>Vt,t:()=>A,take:()=>L,take_nth:()=>Jt,take_while:()=>Se,to_array:()=>Yr,transduce:()=>Fe,true_QMARK_:()=>mr,update:()=>Zt,update_BANG_:()=>D,update_in:()=>Ht,val:()=>Ke,vals:()=>Vr,vec:()=>G,vector:()=>V,vector_QMARK_:()=>Nt,warn_on_lazy_reusage_BANG_:()=>ht,with_meta:()=>tn,zero_QMARK_:()=>vr});function c(e){if(e==null||e instanceof Function)return e;let t=typeof e;return t==="string"?(r,n)=>d(r,e,n):t==="object"?(r,n)=>d(e,r,n):e}globalThis.toFn=c;function Ze(e,t){return e>t}function He(...e){return e.reduce((t,r)=>t+r,0)}function et(...e){return e.length==1?0-e[0]:e.reduce((t,r)=>t-r)}function tt(e,t){return t[e]}function g(e,t,r,...n){if(n.length%2!==0)throw new Error("Illegal argument: assoc expects an odd number of arguments.");switch(p(e)){case _:e.set(t,r);for(let o=0;o<n.length;o+=2)e.set(n[o],n[o+1]);break;case h:case w:e[t]=r;for(let o=0;o<n.length;o+=2)e[n[o]]=n[o+1];break;default:throw new Error(`Illegal argument: assoc! expects a Map, Array, or Object as the first argument, but got ${typeof e}.`)}return e}function Z(e){switch(p(e)){case _:return new Map(e.entries());case h:return[...e];case w:return{...e};default:throw new Error(`Don't know how to copy object of type ${typeof e}.`)}}function M(e,t,r,...n){e||(e={});let o=Z(e);return g(o,t,r,...n),o}const _=1,h=2,w=3,v=4,m=5,j=6;function N(e){switch(e){case _:return new Map;case h:return[];case w:return{};case v:return new B;case m:return new Set;case j:return s(function*(){})}}function O(e){return e.constructor===Object}function rt(e){return e!=null&&O(e)}function p(e){if(e!=null){if(O(e))return w;if(e instanceof Map)return _;if(e instanceof Set)return m;if(e instanceof B)return v;if(Array.isArray(e))return h;if(e instanceof C)return j;if(e instanceof Object)return w}}function nt(e,t,r,n,o){let u=p(r);if(u!==_&&u!==h&&u!==w)throw new Error(`Illegal argument: ${t} expects the first argument to be a Map, Array, or Object.`);const i=[r];let l=r;for(let a=0;a<n.length-1;a+=1){let b=n[a],y;l instanceof Map?y=l.get(b):y=l[b],y||(y=N(u)),i.push(y),l=y}i.push(o);for(let a=i.length-2;a>=0;a-=1)i[a]=e(i[a],n[a],i[a+1]);return i[0]}function H(e,t,r){return nt(M,"assoc-in",e,t,r)}function ot(e,t,r){var n=e;let o=p(e);for(const u of t.splice(0,t.length-1)){let i=d(n,u);i===void 0&&(i=N(o),g(n,u,i)),n=i}return g(n,t[t.length-1],r),e}function ut(...e){if(e=e.map(c),e.length===0)return ge;if(e.length===1)return e[0];let[t,...r]=e.slice().reverse();return function(...n){let o=t(...n);for(const u of r)o=u(o);return o}}function Y(...e){if(e.length===0)return V();let[t,...r]=e;switch(t==null&&(t=[]),p(t)){case m:for(const n of r)t.add(n);break;case v:t.unshift(...r.reverse());break;case h:t.push(...r);break;case _:for(const n of r)Array.isArray(n)?t.set(n[0],n[1]):f(n).forEach(o=>{t.set(o[0],o[1])});break;case w:for(const n of r)Array.isArray(n)?t[n[0]]=n[1]:Object.assign(t,n);break;default:throw new Error("Illegal argument: conj! expects a Set, Array, List, Map, or Object as the first argument.")}return t}function ee(...e){if(e.length===0)return V();let[t,...r]=e;switch(t==null&&(t=[]),p(t)){case m:return new Set([...t,...r]);case v:return new B(...r.reverse(),...t);case h:return[...t,...r];case _:const n=new Map(t);for(const u of r)Array.isArray(u)?n.set(u[0],u[1]):f(u).forEach(i=>{n.set(i[0],i[1])});return n;case j:return s(function*(){yield*r,yield*t});case w:const o={...t};for(const u of r)Array.isArray(u)?o[u[0]]=u[1]:Object.assign(o,u);return o;default:throw new Error("Illegal argument: conj expects a Set, Array, List, Map, or Object as the first argument.")}}function te(e,...t){for(const r of t)e.delete(r);return e}function it(e,...t){let r=new Set([...e]);return te(r,...t)}function re(e,t){switch(p(e)){case m:case _:return e.has(t);case void 0:return!1;default:return t in e}}function ft(e,...t){for(const r of t)delete e[r];return e}function ct(e,...t){let r={...e};for(const n of t)delete r[n];return r}function ne(e){return e+1}function st(e){return e-1}function oe(...e){console.log(...e)}function ue(e,t,r){if(e){var n=void 0;if(Array.isArray(e))n=e[t];else{let o=f(e),u=0;for(let i of o)if(u++==t){n=i;break}}if(n!==void 0)return n}return r}function d(e,t,r=void 0){if(e==null)return r;let n;if(O(e))return n=e[t],n===void 0?r:n;switch(p(e)){case m:e.has(t)&&(n=t);break;case _:n=e.get(t);break;case h:n=e[t];break;default:if(e.get instanceof Function)try{n=e.get(t);break}catch{}n=e[t];break}return n!==void 0?n:r}function ie(e){return typeof e=="string"||e===null||e===void 0||e instanceof Object&&Symbol.iterator in e}function f(e){if(e==null)return[];if(ie(e))return e;if(O(e))return Object.entries(e);throw new TypeError(`${e} is not iterable`)}const q=Symbol("Iterable"),fe=Symbol.iterator;function I(e){return e[Symbol.iterator]()}const T=I;function k(e){if(e==null)return e;let t=f(e);return t.length===0||t.size===0||t[Symbol.iterator]().next().done?null:t}function R(e){let[t]=f(e);return t}function lt(e){let[t,r]=f(e);return r}function at(e){return R(R(e))}function ce(e){return s(function*(){let t=!0;for(const r of f(e))t?t=!1:yield r})}class K{value;constructor(t){this.value=t}_deref(){return this.value}}function pt(e){switch(e=f(e),p(e)){case h:return e[e.length-1];default:let t;for(const r of e)t=r;return t}}function xt(e){return new K(e)}function _t(e){return e instanceof K}function Q(e,t,r){e=c(e);let n,o;if(r===void 0){let u=f(t)[Symbol.iterator]();o=u.next().value,n=u}else o=t,n=f(r);if(o instanceof K)return o.value;for(const u of n)if(o=e(o,u),o instanceof K){o=o.value;break}return o}var se=!1;function ht(){se=!0}class C{constructor(t){this.gen=t,this.usages=0}[Symbol.iterator](){if(this.usages++,this.usages>=2&&se)try{throw new Error}catch(t){console.warn("Re-use of lazy value",t.stack)}return this.gen()}}C.prototype[q]=!0;function s(e){return new C(e)}class le{constructor(t,r){this.x=t,this.coll=r}*[Symbol.iterator](){yield this.x,yield*f(this.coll)}}function ae(e,t){return new le(e,t)}function E(e,...t){switch(e=c(e),t.length){case 0:return r=>(...n)=>{switch(n.length){case 0:return r();case 1:return r(n[0]);case 2:return r(n[0],e(n[1]));default:return r(n[0],e(...n.slice(1)))}};case 1:return s(function*(){for(const r of f(t[0]))yield e(r)});default:return s(function*(){const r=t.map(n=>T(f(n)));for(;;){let n=[];for(const o of r){const u=o.next();if(u.done)return;n.push(u.value)}yield e(...n)}})}}function F(e,t){return e=c(e),s(function*(){for(const r of f(t))A(e(r))&&(yield r)})}function dt(e,t){return[...F(e,t)]}function yt(e,t){return F(me(e),t)}function wt(e,t){e=c(e);let r=[],n=0;for(const o of f(t))r.push(e(n,o)),n++;return r}function mt(e,t){e=c(e);let r=[],n=0;for(const o of f(t)){let u=e(n,o);A(u)&&r.push(u),n++}return r}function At(...e){return e.join("")}function pe(e){return!e}function bt(e){return e==null}const gt={};function vt(e){return e===null?"null":JSON.stringify(e,(t,r)=>{switch(p(r)){case m:case j:return[...r];case _:return Object.fromEntries(r);default:return r}})}function xe(...e){return e.map(vt).join(" ")}function Mt(...e){oe(xe(...e))}function _e(e){this.val=e,this._watches={},this._deref=()=>this.val,this._hasWatches=!1,this._reset_BANG_=t=>{let r=this.val;if(this.val=t,this._hasWatches)for(let n of Object.entries(this._watches)){let o=n[0],u=n[1];u(o,this,r,t)}return t},this._add_watch=(t,r)=>{this._watches[t]=r,this._hasWatches=!0},this._remove_watch=t=>{delete this._watches[t]}}function Et(e){return new _e(e)}function he(e){return e._deref()}function de(e,t){e._reset_BANG_(t)}function Rt(e,t,...r){t=c(t);const n=t(he(e),...r);return de(e,n),n}function Kt(e,t,r){return s(function*(){let n=e,o=t,u=r;t===void 0&&(n=0,o=e);let i=n||0;for(u=r||1;o===void 0||i<o;)yield i,i+=u})}function Qt(e,t){let r=e.exec(t);return r&&t===r[0]?r.length===1?r[0]:r:null}function St(e,t){if(U(t)){let r=e.exec(t);return r!=null?r.length===1?r[0]:[...r]:null}else throw new TypeError("re-find must match against a string.")}function jt(e,t,r){return e.slice(t,r)}function V(...e){return e}function Nt(e){return p(e)===h}function ye(...e){return[...E(...e)]}function G(e){return Ae(e)?e:[...f(e)]}function Ot(e){return new Set(f(e))}function It(e,...t){e=c(e);const r=t.slice(0,t.length-1),n=t[t.length-1];return e(...r,...n)}function we(e){return e%2==0}function Tt(e){return!we(e)}function me(e){return e=c(e),(...t)=>pe(e(...t))}function kt(e){return(...t)=>e}class B extends Array{constructor(...t){super(),this.push(...t)}}function Gt(e){return p(e)===v}function Bt(...e){return new B(...e)}function Ae(e){return Array.isArray(e)}function be(...e){return s(function*(){for(const t of e)yield*f(t)})}function Lt(e,...t){return be(...E(e,...t))}function ge(e){return e}function ve(...e){return s(function*(){const t=e.map(r=>T(f(r)));for(;;){let r=[];for(const n of t){const o=n.next();if(o.done)return;r.push(o.value)}yield*r}})}function Pt(e,t){return P(1,ve(W(e),t))}function $t(e,t){const r=p(e),n=N(r)||{};for(const o of t){const u=d(e,o);u!=null&&g(n,o,u)}return n}function zt(e,...t){let r=e,n=t[0];return t.length===2&&([r,n]=t),Me(e,r,[],n,!0)}function Yt(e,...t){let r=e,n=[],o=t[0];return t.length===2?[r,o]=t:t.length>2&&([r,n,o]=t),Me(e,r,n,o,!1)}function Me(e,t,r,n,o){return s(function*(){let u=[],i=0;for(let l of f(n))i<e&&(u.push(l),u.length===e&&(yield u,u=t<e?u.slice(t):[])),i++,i===t&&(i=0);u.length>0&&(u.length===e||o?yield u:r.length&&(u.push(...r.slice(0,e-u.length)),yield u))})}function qt(e,t){return e=c(e),s(function*(){let r=T(t),n=r.next();n.done&&(yield*null);let o=n.value,u=e(o),i=[o],l=[];for(;;){let a=r.next();if(a.done){yield i;break}let b=a.value,y=e(b);u==y?i.push(b):(yield i,l.push(b),i=l,u=y,l=[])}})}function Ee(e){const t=p(e);if(t!=null)return N(t);throw new Error(`Can't create empty of ${typeof e}`)}function Ct(...e){const t=e[0];let r;return t==null?r={}:r=Qe(Ee(t),t),Y(r,...e.slice(1))}function Re(e){return e[0]}function Ke(e){return e[1]}function Ft(e,...t){e=c(e);var r=!1;for(const n of t)if(n!=null){r=!0;break}if(r){let n=(u,i)=>{let l=Re(i),a=Ke(i);return re(u,l)?M(u,l,e(d(u,l),a)):M(u,l,a)};return Q((u,i)=>Q(n,u||{},k(i)),t)}else return null}function Vt(){return performance.now()}function Qe(...e){switch(e.length){case 0:return[];case 1:return e[0];default:return ee(e[0]??[],...f(e[1]))}}function Wt(e,t){return e===t}function W(...e){if(e.length==0||e.length>2)throw new Error(`Invalid arity: ${e.length}`);return{[q]:!0,[fe]:e.length==1?function*(){let t=e[0];for(;;)yield t}:function*(){let[t,r]=e;for(var n=0;n<t;n++)yield r}}}function L(e,t){return s(function*(){let r=e-1;for(const n of f(t))if(r-->=0&&(yield n),r<0)return})}function Se(e,t){return e=c(e),s(function*(){for(const r of f(t))if(A(e(r)))yield r;else return})}function Jt(e,t){return e<=0?W(R(t)):s(function*(){let r=0;for(let n of f(t))r%e===0&&(yield n),r++})}function Dt(e,...t){return e=c(e),function(...r){return e(...t,...r)}}function Ut(e){return s(function*(){for(;;)yield*e})}function P(e,t){return s(function*(){let r=I(f(t));for(let n=0;n<e;n++)r.next();yield*r})}function je(e,t){return e=c(e),s(function*(){let r=I(f(t));for(;;){let n=r.next();if(n.done)break;let o=n.value;if(!A(e(o))){yield o;break}}yield*r})}function Xt(e){return s(function*(){let t=new Set;for(const r of f(e))t.has(r)||(yield r),t.add(r)})}function Zt(e,t,r,...n){return r=c(r),M(e,t,r(d(e,t),...n))}function Ne(e,t,r){let n=e;for(const o of t)n=d(n,o);return n===void 0?r:n}function Ht(e,t,r,...n){return r=c(r),H(e,t,r(Ne(e,t),...n))}function J(e,t,...r){return e=c(e),function(n,...o){return n?e(n,...r,...o):e(t,...r,...o)}}function Oe(e,t){e=c(e);for(let r of f(t))if(!e(r))return!1;return!0}function er(e,t){return!Oe(e,t)}function tr(e,t){return e=c(e),s(function*(){for(const r of f(t)){const n=e(r);A(n)&&(yield n)}})}function rr(e){return Array.isArray(e)?e.reverse():[...e].reverse()}function Ie(e,t){return t===void 0&&(t=e,e=void 0),e=c(e),[...t].sort(e||$)}function nr(e){return e===$?e:(t,r)=>{let n=e(t,r);return $e(n)?n:n?-1:e(r,t)?1:0}}function or(e,t,r){return r===void 0&&(r=t,t=$),e=c(e),t=c(t),Ie((n,o)=>{let u=nr(t),i=e(n),l=e(o);return u(i,l)},r)}function ur(e){return[...e].sort(function(t,r){return Math.random()-.5})}function Te(e,t){e=c(e);for(const r of f(t)){const n=e(r);if(A(n))return n}}function ir(e,t){return e=c(e),!Te(e,t)}function fr(e,t){return(Array.isArray(t)?ye:E)(n=>{const o=e[n];return o!==void 0?o:n},t)}function cr(e){return!k(e)}function ke(e){return Math.floor(Math.random()*e)}function sr(e){let t=ke(S(e));return ue(e,t)}function lr(e){return s(function*(){for(;;)yield e()})}function ar(e,t){t===void 0&&(t=e,e=void 0);const r=lr(t);return e?L(e,r):r}function D(e,t,r,...n){const o=d(e,t);return g(e,t,r(o,...n))}function pr(e,t){const r={};for(const n of f(t)){const o=e(n);D(r,o,J(Y,[]),n)}return r}function xr(e){const t={},r=J(ne,0);for(const n of f(e))D(t,n,r);return t}class _r{constructor(t){this.f=t,this.res=void 0}*[Symbol.iterator](){this.res===void 0&&(this.res=this.f(),this.f=null),yield*f(this.res)}}function hr(e){let t=[...f(e)];return t.pop(),t.length>0?t:null}function dr(...e){let[t,r]=e.length>1?e:[1,e[0]];return E((n,o)=>n,r,P(t,r))}function yr(e,t){return[L(e,t),P(e,t)]}function wr(e,t){return[Se(e,t),je(e,t)]}function S(e){if(!e)return 0;const t=e.length||e.size;if(typeof t=="number")return t;let r=0;for(const n of f(e))r++;return r}function mr(e){return e===!0}function Ar(e){return e===!1}function br(e){return e!=null}function gr(e){return!!e}function vr(e){return e===0}function Mr(e){return e<0}function Er(e){return e>0}function Rr(...e){var t=0;let r={};for(;!(t>=e.length);)r[e[t]]=e[t+1],t=t+2;return r}function Kr(e){return e.length}function Qr(e,t,r,...n){if(n.length==0)return e[t]=r,r;{let o=[t,r,...n],u=o[o.length-1],i=e,l=0,a=o.length-2;for(;l<a;l++)i=i[o[l]];return i[o[l]]=u,r}}function Sr(e){for(const t of f(e));return null}function jr(e){return G(e)}function Nr(e){return[...e]}function Or(e,t,r){return e._add_watch(t,r)}function Ir(e,t){return e._remove_watch(t)}function Tr(e,t,r){if(!r)return t;var n=t;for(let o of Object.entries(r))n=e(n,o[0],o[1]);return n}function Ge(e,t,...r){return t==null?e:Math.max(e,t,...r)}function kr(e,t,...r){return t==null?e:Math.min(e,t,...r)}function Gr(e){return e instanceof Object}function Br(...e){return(...t)=>{for(let r of e)for(let n of t)if(!r(n))return!1;return!0}}function Lr(...e){return(...t)=>{for(let r of e)for(let n of t){let o=r(n);if(o)return o}}}function Be(e,t){return G(t||e)}function Pr(e,t){var r=t;return s(function*(){for(;;)yield r,r=e(r)})}function $r(...e){return e=e.map(c),(...t)=>{let r=[];for(let n of e)r.push(n(...t));return r}}function zr(e){if(Array.isArray(e)){let t=e.slice(1);return t.length>0?t:null}else return k(ce(e))}function $(e,t){if(e===t)return 0;if(e==null)return-1;if(t==null)return 1;if(typeof e=="number"){if(typeof t=="number")return e===t?0:e<t?-1:1;throw new Error("comparing number to other type")}else throw new Error("comparing number to other type")}function Yr(e){return Be(e)}function A(e){return e!=null&&e!==!1}function Le(e,t,r){return e.substring(t,r)}function qr(e){return typeof e=="function"}function*Pe(e,t){let r=e.exec(t);if(r){let n=r[0],o=r.length===1?n:G(r);yield*ae(o,s(function*(){let u=r.index+Ge(1,n.length);u<=t.length&&(yield*Pe(e,Le(t,u)))}))}}function Cr(e){return Number.isNaN(e)}function $e(e){return typeof e=="number"}function ze(e){return e?Object.keys(e):null}function Fr(e){return ze(e)}function Vr(e){return e?Object.values(e):null}function U(e){return typeof e=="string"}function Wr(e){return p(e)!=null}function Jr(e){return e instanceof RegExp}class X extends Error{constructor(t,r,n){super(t),this._data=r,this._cause=n}}function Dr(e){return e instanceof X?e._data:null}function Ur(e){return e instanceof Error?e.message:null}function Xr(e){return e instanceof X?e._cause:null}function Zr(e,t,r){return new X(e,t,r)}function Ye(e){return Number.isInteger(e)}const Hr=Ye,qe=Symbol("meta");function en(e){return e instanceof Object?e[qe]:null}function tn(e,t){let r=Z(e);return r[qe]=t,r}function rn(e){return e===!0||e===!1}function Ce(e){switch(p(e)){case m:return!0}return!1}function nn(e,t){return Ce(t)?S(t):S(L(e,t))}function on(e,t){let r=d(e,t);if(r!==void 0)return[t,r]}function un(e,t){return(e%t+t)%t}function fn(e,t,...r){if(r.length==0)return t;var n=e(t),o=t;return r.forEach(u=>{var i=e(u);i<=n&&(n=i,o=u)}),o}function cn(e,t,...r){if(r.length==0)return t;var n=e(t),o=t;return r.forEach(u=>{var i=e(u);i>=n&&(n=i,o=u)}),o}function sn(e){throw new Error(`Expected string, got: ${typeof e}`)}function ln(e){if(U(e)){if(/^[+-]?\d+$/.test(e)){let t=parseInt(e);if(Number.MIN_SAFE_INTEGER<=t<=Number.MAX_SAFE_INTEGER)return t}return null}return sn(e)}function an(e){return e>=0?Math.floor(e):Math.ceil(x)}function pn(e,t){let r=e%t;return an((e-r)/t)}function Fe(e,...t){switch(t.length){case 2:{let r=t[0],n=t[1];return Fe(e,r,r(),n)}default:{let r=t[0],n=t[1],o=t[2];r=e(r);let u=Q(r,n,o);return r(u)}}}return Xe(xn);})();
|
package/package.json
CHANGED
package/src/squint/core.js
CHANGED
|
@@ -234,7 +234,7 @@ export function conj_BANG_(...xs) {
|
|
|
234
234
|
break;
|
|
235
235
|
case MAP_TYPE:
|
|
236
236
|
for (const x of rest) {
|
|
237
|
-
if (!
|
|
237
|
+
if (!Array.isArray(x))
|
|
238
238
|
iterable(x).forEach((kv) => {
|
|
239
239
|
o.set(kv[0], kv[1]);
|
|
240
240
|
});
|
|
@@ -243,7 +243,7 @@ export function conj_BANG_(...xs) {
|
|
|
243
243
|
break;
|
|
244
244
|
case OBJECT_TYPE:
|
|
245
245
|
for (const x of rest) {
|
|
246
|
-
if (!
|
|
246
|
+
if (!Array.isArray(x)) Object.assign(o, x);
|
|
247
247
|
else o[x[0]] = x[1];
|
|
248
248
|
}
|
|
249
249
|
break;
|
|
@@ -278,7 +278,7 @@ export function conj(...xs) {
|
|
|
278
278
|
const m = new Map(o);
|
|
279
279
|
|
|
280
280
|
for (const x of rest) {
|
|
281
|
-
if (!
|
|
281
|
+
if (!Array.isArray(x))
|
|
282
282
|
iterable(x).forEach((kv) => {
|
|
283
283
|
m.set(kv[0], kv[1]);
|
|
284
284
|
});
|
|
@@ -295,7 +295,7 @@ export function conj(...xs) {
|
|
|
295
295
|
const o2 = { ...o };
|
|
296
296
|
|
|
297
297
|
for (const x of rest) {
|
|
298
|
-
if (!
|
|
298
|
+
if (!Array.isArray(x)) Object.assign(o2, x);
|
|
299
299
|
else o2[x[0]] = x[1];
|
|
300
300
|
}
|
|
301
301
|
|
|
@@ -412,7 +412,7 @@ export function get(coll, key, otherwise = undefined) {
|
|
|
412
412
|
let g = coll['get'];
|
|
413
413
|
if (g instanceof Function) {
|
|
414
414
|
try {
|
|
415
|
-
|
|
415
|
+
v = coll.get(key);
|
|
416
416
|
break;
|
|
417
417
|
} catch (e) {}
|
|
418
418
|
}
|
|
@@ -440,7 +440,8 @@ export function iterable(x) {
|
|
|
440
440
|
if (seqable_QMARK_(x)) {
|
|
441
441
|
return x;
|
|
442
442
|
}
|
|
443
|
-
return Object.entries(x);
|
|
443
|
+
if (isObj(x)) return Object.entries(x);
|
|
444
|
+
throw new TypeError(`${x} is not iterable`);
|
|
444
445
|
}
|
|
445
446
|
|
|
446
447
|
export const IIterable = Symbol('Iterable');
|
|
@@ -454,11 +455,14 @@ export function _iterator(coll) {
|
|
|
454
455
|
export const es6_iterator = _iterator;
|
|
455
456
|
|
|
456
457
|
export function seq(x) {
|
|
458
|
+
if (x == null) return x;
|
|
457
459
|
let iter = iterable(x);
|
|
458
460
|
// return nil for terminal checking
|
|
459
461
|
if (iter.length === 0 || iter.size === 0) {
|
|
460
462
|
return null;
|
|
461
463
|
}
|
|
464
|
+
let _i = iter[Symbol.iterator]();
|
|
465
|
+
if (_i.next().done) return null;
|
|
462
466
|
return iter;
|
|
463
467
|
}
|
|
464
468
|
|
|
@@ -600,7 +604,24 @@ export function map(f, ...colls) {
|
|
|
600
604
|
f = toFn(f);
|
|
601
605
|
switch (colls.length) {
|
|
602
606
|
case 0:
|
|
603
|
-
|
|
607
|
+
return (rf) => {
|
|
608
|
+
return (...args) => {
|
|
609
|
+
switch (args.length) {
|
|
610
|
+
case 0: {
|
|
611
|
+
return rf();
|
|
612
|
+
}
|
|
613
|
+
case 1: {
|
|
614
|
+
return rf(args[0]);
|
|
615
|
+
}
|
|
616
|
+
case 2: {
|
|
617
|
+
return rf(args[0], f(args[1]));
|
|
618
|
+
}
|
|
619
|
+
default: {
|
|
620
|
+
return rf(args[0], f(...args.slice(1)));
|
|
621
|
+
}
|
|
622
|
+
}
|
|
623
|
+
};
|
|
624
|
+
};
|
|
604
625
|
case 1:
|
|
605
626
|
return lazy(function* () {
|
|
606
627
|
for (const x of iterable(colls[0])) {
|
|
@@ -789,15 +810,14 @@ export function re_find(re, s) {
|
|
|
789
810
|
if (string_QMARK_(s)) {
|
|
790
811
|
let matches = re.exec(s);
|
|
791
812
|
if (matches != null) {
|
|
792
|
-
if (matches.length === 1)
|
|
793
|
-
return matches[0];
|
|
813
|
+
if (matches.length === 1) return matches[0];
|
|
794
814
|
else {
|
|
795
815
|
return [...matches];
|
|
796
816
|
}
|
|
797
817
|
}
|
|
798
818
|
return null;
|
|
799
819
|
} else {
|
|
800
|
-
throw new TypeError(
|
|
820
|
+
throw new TypeError('re-find must match against a string.');
|
|
801
821
|
}
|
|
802
822
|
}
|
|
803
823
|
|
|
@@ -1322,7 +1342,7 @@ export function not_any_QMARK_(pred, coll) {
|
|
|
1322
1342
|
}
|
|
1323
1343
|
|
|
1324
1344
|
export function replace(smap, coll) {
|
|
1325
|
-
let mapf =
|
|
1345
|
+
let mapf = Array.isArray(coll) ? mapv : map;
|
|
1326
1346
|
return mapf((x) => {
|
|
1327
1347
|
const repl = smap[x];
|
|
1328
1348
|
if (repl !== undefined) {
|
|
@@ -1614,8 +1634,7 @@ export function next(x) {
|
|
|
1614
1634
|
return null;
|
|
1615
1635
|
}
|
|
1616
1636
|
} else {
|
|
1617
|
-
|
|
1618
|
-
return next(vec(x));
|
|
1637
|
+
return seq(rest(x));
|
|
1619
1638
|
}
|
|
1620
1639
|
}
|
|
1621
1640
|
|
|
@@ -1847,3 +1866,33 @@ export function parse_long(x) {
|
|
|
1847
1866
|
}
|
|
1848
1867
|
return parsing_err(x);
|
|
1849
1868
|
}
|
|
1869
|
+
|
|
1870
|
+
function fix(q) {
|
|
1871
|
+
if (q >= 0) {
|
|
1872
|
+
return Math.floor(q);
|
|
1873
|
+
}
|
|
1874
|
+
return Math.ceil(x);
|
|
1875
|
+
}
|
|
1876
|
+
|
|
1877
|
+
export function quot(n, d) {
|
|
1878
|
+
let rem = n % d;
|
|
1879
|
+
return fix((n - rem) / d);
|
|
1880
|
+
}
|
|
1881
|
+
|
|
1882
|
+
export function transduce(xform, ...args) {
|
|
1883
|
+
switch (args.length) {
|
|
1884
|
+
case 2: {
|
|
1885
|
+
let f = args[0];
|
|
1886
|
+
let coll = args[1];
|
|
1887
|
+
return transduce(xform, f, f(), coll);
|
|
1888
|
+
}
|
|
1889
|
+
default: {
|
|
1890
|
+
let f = args[0];
|
|
1891
|
+
let init = args[1];
|
|
1892
|
+
let coll = args[2];
|
|
1893
|
+
f = xform(f);
|
|
1894
|
+
let ret = reduce(f, init, coll);
|
|
1895
|
+
return f(ret);
|
|
1896
|
+
}
|
|
1897
|
+
}
|
|
1898
|
+
}
|