Data commit

Task/Fractran/Zkl/fractran-1.zkl

@@ -0,0 +1,15 @@
+var fracs="17/91, 78/85, 19/51, 23/38, 29/33, 77/29, 95/23, 77/19, 1/17,"
+   "11/13,  13/11, 15/14, 15/2, 55/1";
+fcn fractranW(n,fracsAsOneBigString){ //-->Walker (iterator)
+  fracs:=(fracsAsOneBigString-" ").split(",").apply(
+	 fcn(frac){ frac.split("/").apply("toInt") }); //( (n,d), (n,d), ...)
+   Walker(fcn(rn,fracs){
+      n:=rn.value;
+      foreach a,b in (fracs){
+	 if(n*a%b == 0){
+	    rn.set(n*a/b);
+	    return(n);
+	 }
+      }
+   }.fp(Ref(n),fracs))
+}

Task/Fractran/Zkl/fractran-2.zkl

@@ -0,0 +1 @@
+fractranW(2,fracs).walk(20).println();

Task/Fractran/Zkl/fractran-3.zkl

@@ -0,0 +1,11 @@
+var [const] BN=Import("zklBigNum");  // libGMP
+fcn fractranPrimes{
+   foreach n,fr in ([1..].zip(fractranW(BN(2),fracs))){
+      if(fr.num1s==1){
+	 p:=(fr.toString(2) - "1").len();  // count zeros
+	 if(p>1)
+	    println("Prime %3d from the nth Fractran(%8d): %d".fmt(p,n,fr));
+      }
+   }
+}
+fractranPrimes();