Data commit

Task/Intersecting-number-wheels/Zkl/intersecting-number-wheels-1.zkl

@@ -0,0 +1,9 @@
+fcn intersectingNumberWheelsW(wheels){ // ("A":(a,b,"C"), "C":(d,e) ...)
+   ws:=wheels.pump(Dictionary(),fcn([(k,v)]){ return(k,Walker.cycle(v)) });  // new Dictionary
+   Walker.zero().tweak(fcn(w,wheels){
+      while(1){
+	 w=wheels[w].next();	// increment wheel w
+	 if(Int.isType(w)) return(w);
+      }
+   }.fp("A",ws))	// assume wheel A exists and is always first
+}

Task/Intersecting-number-wheels/Zkl/intersecting-number-wheels-2.zkl

@@ -0,0 +1,9 @@
+wheelSets:=T( Dictionary("A",T(1,2,3)),
+	      Dictionary("A",T(1,"B",2),   "B",T(3,4)),
+	      Dictionary("A",T(1,"D","D"), "D",T(6,7,8)),
+	      Dictionary("A",T(1,"B","C"), "C",T(5,"B"),  "B",T(3,4)) );
+foreach ws in (wheelSets){
+   println("Wheel set:");
+   ws.pump(String,fcn([(k,v)]){ "  %s: %s\n".fmt(k,v.concat(" ")) }).print();
+   println("-->",intersectingNumberWheelsW(ws).walk(20).concat(" "));
+}