EKG sequence convergence: Difference between revisions
Content added Content deleted
m (→{{header|zkl}}: rewrite) |
m (→{{header|zkl}}: opps) |
||
Line 490: | Line 490: | ||
ekgWs:=ns.apply(ekgW); ekgWs.apply2("next"); // pop initial 1 |
ekgWs:=ns.apply(ekgW); ekgWs.apply2("next"); // pop initial 1 |
||
ekgNs:=List()*vm.numArgs; // ( (ekg(n1)), (ekg(n2)) ...) |
ekgNs:=List()*vm.numArgs; // ( (ekg(n1)), (ekg(n2)) ...) |
||
do( |
do(1_000){ // find convergence in this many terms or bail |
||
ekgN:=ekgWs.apply("next"); // (ekg(n1)[n],ekg(n2)[n] ...) |
ekgN:=ekgWs.apply("next"); // (ekg(n1)[n],ekg(n2)[n] ...) |
||
ekgNs.zipWith(fcn(ns,n){ ns.merge(n) },ekgN); // keep terms sorted |
ekgNs.zipWith(fcn(ns,n){ ns.merge(n) },ekgN); // keep terms sorted |