squint-cljs 0.4.59 → 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/lib/cli.js +33 -33
- package/lib/cljs.pprint.js +73 -73
- package/lib/compiler.js +262 -261
- package/lib/compiler.node.js +30 -30
- package/lib/compiler.sci.js +1017 -1017
- package/lib/node.nrepl_server.js +6 -6
- package/lib/squint.core.umd.js +1 -1
- package/package.json +1 -1
- package/src/squint/core.js +50 -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))},vfa=function(a){return function(b,c){b=$APP.kf(b);var d=$APP.fe.g(b,$APP.
|
|
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
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
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
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.
|
|
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
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
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.
|
|
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
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
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
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.
|
|
21
|
-
var Cfa=$APP.Oi.h($APP.hf),T9=$APP.vh([Mfa,Sfa,Nfa,Pfa,Rfa,Ofa,Tfa,Vfa,$APP.
|
|
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.
|
|
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
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 L=Object.defineProperty;var Fe=Object.getOwnPropertyDescriptor;var Ve=Object.getOwnPropertyNames;var We=Object.prototype.hasOwnProperty;var Je=(e,t)=>{for(var r in t)L(e,r,{get:t[r],enumerable:!0})},De=(e,t,r,n)=>{if(t&&typeof t=="object"||typeof t=="function")for(let o of Ve(t))!We.call(e,o)&&o!==r&&L(e,o,{get:()=>t[o],enumerable:!(n=Fe(t,o))||n.enumerable});return e};var Ue=e=>De(L({},"__esModule",{value:!0}),e);var pn={};Je(pn,{Atom:()=>xe,Cons:()=>se,IIterable:()=>$,IIterable__iterator:()=>fe,LazySeq:()=>_r,NaN_QMARK_:()=>qr,PROTOCOL_SENTINEL:()=>bt,_:()=>He,_GT_:()=>Xe,_PLUS_:()=>Ze,_iterator:()=>O,aclone:()=>Nr,add_watch:()=>Or,alength:()=>Kr,apply:()=>It,array_QMARK_:()=>we,aset:()=>Qr,assoc:()=>M,assoc_BANG_:()=>b,assoc_in:()=>H,assoc_in_BANG_:()=>nt,atom:()=>Et,boolean$:()=>br,boolean_QMARK_:()=>tn,bounded_count:()=>rn,butlast:()=>hr,coll_QMARK_:()=>Vr,comp:()=>ot,compare:()=>B,complement:()=>ge,concat:()=>me,conj:()=>ee,conj_BANG_:()=>Y,cons:()=>le,constantly:()=>Tt,contains_QMARK_:()=>re,count:()=>S,counted_QMARK_:()=>Ce,cycle:()=>Ut,dec:()=>ct,deref:()=>_e,disj:()=>ut,disj_BANG_:()=>te,dissoc:()=>ft,dissoc_BANG_:()=>it,distinct:()=>Xt,doall:()=>jr,dorun:()=>Sr,drop:()=>G,drop_last:()=>dr,drop_while:()=>Se,empty:()=>Me,empty_QMARK_:()=>cr,es6_iterator:()=>I,even_QMARK_:()=>ye,every_QMARK_:()=>Ne,every_pred:()=>Br,ex_cause:()=>Ur,ex_data:()=>Jr,ex_info:()=>Xr,ex_message:()=>Dr,false_QMARK_:()=>mr,ffirst:()=>lt,filter:()=>F,filterv:()=>dt,find:()=>nn,first:()=>K,fn_QMARK_:()=>$r,fnil:()=>J,frequencies:()=>xr,get:()=>d,get_in:()=>je,group_by:()=>pr,identical_QMARK_:()=>Wt,identity:()=>Ae,inc:()=>ne,int_QMARK_:()=>$e,integer_QMARK_:()=>Zr,interleave:()=>be,interpose:()=>Pt,into:()=>Ke,into_array:()=>Ge,iterable:()=>f,iterate:()=>Pr,js_keys:()=>Cr,js_obj:()=>Rr,juxt:()=>zr,keep:()=>tr,keep_indexed:()=>wt,key:()=>Ee,keys:()=>Ye,last:()=>pt,lazy:()=>s,list:()=>Bt,list_QMARK_:()=>Gt,map:()=>E,map_QMARK_:()=>Gr,map_indexed:()=>gt,mapcat:()=>Lt,mapv:()=>de,max:()=>Te,max_key:()=>fn,merge:()=>Ct,merge_with:()=>Ft,meta:()=>Hr,min:()=>Tr,min_key:()=>un,mod:()=>on,neg_QMARK_:()=>Mr,next:()=>Be,nil_QMARK_:()=>At,not:()=>ae,not_any_QMARK_:()=>ir,not_every_QMARK_:()=>er,nth:()=>ue,number_QMARK_:()=>ze,object_QMARK_:()=>tt,odd_QMARK_:()=>kt,parse_long:()=>sn,partial:()=>Dt,partition:()=>$t,partition_all:()=>Yt,partition_by:()=>qt,pos_QMARK_:()=>Er,pr_str:()=>pe,println:()=>oe,prn:()=>Mt,quot:()=>an,rand_int:()=>ke,rand_nth:()=>sr,range:()=>Kt,re_find:()=>St,re_matches:()=>Qt,re_seq:()=>Pe,reduce:()=>P,reduce_kv:()=>kr,reduced:()=>xt,reduced_QMARK_:()=>_t,regexp_QMARK_:()=>Wr,remove:()=>yt,remove_watch:()=>Ir,repeat:()=>W,repeatedly:()=>ar,replace:()=>fr,reset_BANG_:()=>he,rest:()=>at,reverse:()=>rr,satisfies_QMARK_:()=>et,second:()=>st,select_keys:()=>zt,seq:()=>q,seqable_QMARK_:()=>ie,set:()=>Ot,shuffle:()=>ur,some:()=>Ie,some_QMARK_:()=>Ar,some_fn:()=>Lr,sort:()=>Oe,sort_by:()=>or,split_at:()=>yr,split_with:()=>gr,str:()=>mt,string_QMARK_:()=>U,subs:()=>Le,subvec:()=>jt,swap_BANG_:()=>Rt,system_time:()=>Vt,t:()=>m,take:()=>T,take_nth:()=>Jt,take_while:()=>Qe,to_array:()=>Yr,true_QMARK_:()=>wr,update:()=>Zt,update_BANG_:()=>D,update_in:()=>Ht,val:()=>Re,vals:()=>Fr,vec:()=>R,vector:()=>V,vector_QMARK_:()=>Nt,warn_on_lazy_reusage_BANG_:()=>ht,with_meta:()=>en,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 Xe(e,t){return e>t}function Ze(...e){return e.reduce((t,r)=>t+r,0)}function He(...e){return e.length==1?0-e[0]:e.reduce((t,r)=>t-r)}function et(e,t){return t[e]}function b(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 g: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 g: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 b(o,t,r,...n),o}const _=1,h=2,g=3,v=4,w=5,j=6;function N(e){switch(e){case _:return new Map;case h:return[];case g:return{};case v:return new k;case w:return new Set;case j:return s(function*(){})}}function z(e){return e.constructor===Object}function tt(e){return e!=null&&z(e)}function p(e){if(e!=null){if(z(e))return g;if(e instanceof Map)return _;if(e instanceof Set)return w;if(e instanceof k)return v;if(Array.isArray(e))return h;if(e instanceof C)return j;if(e instanceof Object)return g}}function rt(e,t,r,n,o){let u=p(r);if(u!==_&&u!==h&&u!==g)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 A=n[a],y;l instanceof Map?y=l.get(A):y=l[A],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 rt(M,"assoc-in",e,t,r)}function nt(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),b(n,u,i)),n=i}return b(n,t[t.length-1],r),e}function ot(...e){if(e=e.map(c),e.length===0)return Ae;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 w: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 g: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 w:return new Set([...t,...r]);case v:return new k(...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 g: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 ut(e,...t){let r=new Set([...e]);return te(r,...t)}function re(e,t){switch(p(e)){case w:case _:return e.has(t);case void 0:return!1;default:return t in e}}function it(e,...t){for(const r of t)delete e[r];return e}function ft(e,...t){let r={...e};for(const n of t)delete r[n];return r}function ne(e){return e+1}function ct(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(z(e))return n=e[t],n===void 0?r:n;switch(p(e)){case w: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){return e==null?[]:ie(e)?e:Object.entries(e)}const $=Symbol("Iterable"),fe=Symbol.iterator;function O(e){return e[Symbol.iterator]()}const I=O;function q(e){let t=f(e);return t.length===0||t.size===0?null:t}function K(e){let[t]=f(e);return t}function st(e){let[t,r]=f(e);return r}function lt(e){return K(K(e))}function at(e){return s(function*(){let t=!0;for(const r of f(e))t?t=!1:yield r})}class Q{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 Q(e)}function _t(e){return e instanceof Q}function P(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 Q)return o.value;for(const u of n)if(o=e(o,u),o instanceof Q){o=o.value;break}return o}var ce=!1;function ht(){ce=!0}class C{constructor(t){this.gen=t,this.usages=0}[Symbol.iterator](){if(this.usages++,this.usages>=2&&ce)try{throw new Error}catch(t){console.warn("Re-use of lazy value",t.stack)}return this.gen()}}C.prototype[$]=!0;function s(e){return new C(e)}class se{constructor(t,r){this.x=t,this.coll=r}*[Symbol.iterator](){yield this.x,yield*f(this.coll)}}function le(e,t){return new se(e,t)}function E(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=>I(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))m(e(r))&&(yield r)})}function dt(e,t){return[...F(e,t)]}function yt(e,t){return F(ge(e),t)}function gt(e,t){e=c(e);let r=[],n=0;for(const o of f(t))r.push(e(n,o)),n++;return r}function wt(e,t){e=c(e);let r=[],n=0;for(const o of f(t)){let u=e(n,o);m(u)&&r.push(u),n++}return r}function mt(...e){return e.join("")}function ae(e){return!e}function At(e){return e==null}const bt={};function vt(e){return e===null?"null":JSON.stringify(e,(t,r)=>{switch(p(r)){case w:case j:return[...r];case _:return Object.fromEntries(r);default:return r}})}function pe(...e){return e.map(vt).join(" ")}function Mt(...e){oe(pe(...e))}function xe(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 xe(e)}function _e(e){return e._deref()}function he(e,t){e._reset_BANG_(t)}function Rt(e,t,...r){t=c(t);const n=t(_e(e),...r);return he(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 de(...e){return[...E(...e)]}function R(e){return we(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 ye(e){return e%2==0}function kt(e){return!ye(e)}function ge(e){return e=c(e),(...t)=>ae(e(...t))}function Tt(e){return(...t)=>e}class k extends Array{constructor(...t){super(),this.push(...t)}}function Gt(e){return p(e)===v}function Bt(...e){return new k(...e)}function we(e){return Array.isArray(e)}function me(...e){return s(function*(){for(const t of e)yield*f(t)})}function Lt(e,...t){return me(...E(e,...t))}function Ae(e){return e}function be(...e){return s(function*(){const t=e.map(r=>I(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 G(1,be(W(e),t))}function zt(e,t){const r=p(e),n=N(r)||{};for(const o of t){const u=d(e,o);u!=null&&b(n,o,u)}return n}function Yt(e,...t){let r=e,n=t[0];return t.length===2&&([r,n]=t),ve(e,r,[],n,!0)}function $t(e,...t){let r=e,n=[],o=t[0];return t.length===2?[r,o]=t:t.length>2&&([r,n,o]=t),ve(e,r,n,o,!1)}function ve(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=I(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 A=a.value,y=e(A);u==y?i.push(A):(yield i,l.push(A),i=l,u=y,l=[])}})}function Me(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=Ke(Me(t),t),Y(r,...e.slice(1))}function Ee(e){return e[0]}function Re(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=Ee(i),a=Re(i);return re(u,l)?M(u,l,e(d(u,l),a)):M(u,l,a)};return P((u,i)=>P(n,u||{},q(i)),t)}else return null}function Vt(){return performance.now()}function Ke(...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{[$]:!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 T(e,t){return s(function*(){let r=e-1;for(const n of f(t))if(r-->=0&&(yield n),r<0)return})}function Qe(e,t){return e=c(e),s(function*(){for(const r of f(t))if(m(e(r)))yield r;else return})}function Jt(e,t){return e<=0?W(K(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 G(e,t){return s(function*(){let r=O(f(t));for(let n=0;n<e;n++)r.next();yield*r})}function Se(e,t){return e=c(e),s(function*(){let r=O(f(t));for(;;){let n=r.next();if(n.done)break;let o=n.value;if(!m(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 je(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(je(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 Ne(e,t){e=c(e);for(let r of f(t))if(!e(r))return!1;return!0}function er(e,t){return!Ne(e,t)}function tr(e,t){return e=c(e),s(function*(){for(const r of f(t)){const n=e(r);m(n)&&(yield n)}})}function rr(e){return Array.isArray(e)?e.reverse():[...e].reverse()}function Oe(e,t){return t===void 0&&(t=e,e=void 0),e=c(e),[...t].sort(e||B)}function nr(e){return e===B?e:(t,r)=>{let n=e(t,r);return ze(n)?n:n?-1:e(r,t)?1:0}}function or(e,t,r){return r===void 0&&(r=t,t=B),e=c(e),t=c(t),Oe((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 Ie(e,t){e=c(e);for(const r of f(t)){const n=e(r);if(m(n))return n}}function ir(e,t){return e=c(e),!Ie(e,t)}function fr(e,t){return(Array.isArray(t)?de:E)(n=>{const o=e[n];return o!==void 0?o:n},t)}function cr(e){return!q(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?T(e,r):r}function D(e,t,r,...n){const o=d(e,t);return b(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,G(t,r))}function yr(e,t){return[T(e,t),G(e,t)]}function gr(e,t){return[Qe(e,t),Se(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 wr(e){return e===!0}function mr(e){return e===!1}function Ar(e){return e!=null}function br(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 R(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 kr(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 Te(e,t,...r){return t==null?e:Math.max(e,t,...r)}function Tr(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 Ge(e,t){return R(t||e)}function Pr(e,t){var r=t;return s(function*(){for(;;)yield r,r=e(r)})}function zr(...e){return e=e.map(c),(...t)=>{let r=[];for(let n of e)r.push(n(...t));return r}}function Be(e){if(Array.isArray(e)){let t=e.slice(1);return t.length>0?t:null}else return Be(R(e))}function B(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 Ge(e)}function m(e){return e!=null&&e!==!1}function Le(e,t,r){return e.substring(t,r)}function $r(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:R(r);yield*le(o,s(function*(){let u=r.index+Te(1,n.length);u<=t.length&&(yield*Pe(e,Le(t,u)))}))}}function qr(e){return Number.isNaN(e)}function ze(e){return typeof e=="number"}function Ye(e){return e?Object.keys(e):null}function Cr(e){return Ye(e)}function Fr(e){return e?Object.values(e):null}function U(e){return typeof e=="string"}function Vr(e){return p(e)!=null}function Wr(e){return e instanceof RegExp}class X extends Error{constructor(t,r,n){super(t),this._data=r,this._cause=n}}function Jr(e){return e instanceof X?e._data:null}function Dr(e){return e instanceof Error?e.message:null}function Ur(e){return e instanceof X?e._cause:null}function Xr(e,t,r){return new X(e,t,r)}function $e(e){return Number.isInteger(e)}const Zr=$e,qe=Symbol("meta");function Hr(e){return e instanceof Object?e[qe]:null}function en(e,t){let r=Z(e);return r[qe]=t,r}function tn(e){return e===!0||e===!1}function Ce(e){switch(p(e)){case w:return!0}return!1}function rn(e,t){return Ce(t)?S(t):S(T(e,t))}function nn(e,t){let r=d(e,t);if(r!==void 0)return[t,r]}function on(e,t){return(e%t+t)%t}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,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){throw new Error(`Expected string, got: ${typeof e}`)}function sn(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 cn(e)}function ln(e){return e>=0?Math.floor(e):Math.ceil(x)}function an(e,t){let r=e%t;return ln((e-r)/t)}return Ue(pn);})();
|
|
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
|
|
|
@@ -1859,3 +1878,21 @@ export function quot(n, d) {
|
|
|
1859
1878
|
let rem = n % d;
|
|
1860
1879
|
return fix((n - rem) / d);
|
|
1861
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
|
+
}
|