RosettaCodeData/Task/EKG-sequence-convergence/Zkl/ekg-sequence-convergence-1.zkl
2023-07-01 13:44:08 -04:00

9 lines
302 B
Text

fcn ekgW(N){ // --> iterator
Walker.tweak(fcn(rp,buf,w){
foreach n in (w){
if(rp.value.gcd(n)>1)
{ rp.set(n); w.push(buf.xplode()); buf.clear(); return(n); }
buf.append(n); // save small numbers not used yet
}
}.fp(Ref(N),List(),Walker.chain([2..N-1],[N+1..]))).push(1,N)
}