Data commit

Task/Recamans-sequence/Zkl/recamans-sequence-1.zkl

@@ -0,0 +1,8 @@
+fcn recamanW{  // -->iterator -->(n,a,True if a is a dup)
+   Walker.tweak(fcn(rn,rp,d){
+      n,p,a := rn.value, rp.value, p - n;
+      if(a<=0 or d.find(a)) a+=2*n;
+      d.incV(a); rp.set(a);
+      return(rn.inc(),a,d[a]>1);
+   }.fp(Ref(0),Ref(0),Dictionary()) )
+}

Task/Recamans-sequence/Zkl/recamans-sequence-2.zkl

@@ -0,0 +1,9 @@
+print("First 15 members of Recaman's sequence: ");
+recamanW().walk(15).apply("get",1).println();
+
+n,a := recamanW().filter1("get",2);  // ie filter(a[n].dup)
+println("First duplicate number in series is: a(%d) = %d".fmt(n,a));
+
+rw,ns,n,a,dup := recamanW(),1000,0,0,0;
+do{ n,a,dup=rw.next(); if(not dup and a<1000) ns-=1; }while(ns);
+println("Range 0..1000 is covered by terms up to a(%,d)".fmt(n));