Data commit

Task/Ludic-numbers/Zkl/ludic-numbers-1.zkl

@@ -0,0 +1,9 @@
+fcn dropNth(n,seq){
+   seq.tweak(fcn(n,skipper,idx){ if(0==idx.inc()%skipper) Void.Skip else n }
+	     .fp1(n,Ref(1)))  // skip every nth number of previous sequence
+}
+fcn ludic{  //-->Walker
+   Walker(fcn(rw){ w:=rw.value; n:=w.next(); rw.set(dropNth(n,w)); n }
+	  .fp(Ref([3..*,2])))  // odd numbers starting at 3
+   .push(1,2);  // first two Ludic numbers
+}

Task/Ludic-numbers/Zkl/ludic-numbers-2.zkl

@@ -0,0 +1,6 @@
+ludic().walk(25).toString(*).println();
+ludic().reduce(fcn(sum,n){ if(n<1000) return(sum+1); return(Void.Stop,sum); },0).println();
+ludic().drop(1999).walk(6).println();  // Ludic's between 2000 & 2005
+
+ls:=ludic().filter(fcn(n){ (n<250) and True or Void.Stop  });  // Ludic's < 250
+ls.filter('wrap(n){ ls.holds(n+2) and ls.holds(n+6) }).apply(fcn(n){ T(n,n+2,n+6) }).println();