Data commit

Task/Intersecting-number-wheels/11l/intersecting-number-wheels.11l

@@ -0,0 +1,22 @@
+F nextfrom(&w, =name)
+   L
+      V nxt = w[name][0]
+      w[name] = w[name][1..] + w[name][0.<1]
+      I nxt[0] C ‘0’..‘9’
+         R nxt
+      name = nxt
+
+L(group) |‘A: 1 2 3
+           A: 1 B 2; B: 3 4
+           A: 1 D D; D: 6 7 8
+           A: 1 B C; B: 3 4; C: 5 B’.split("\n")
+   print("Intersecting Number Wheel group:\n  "group)
+   [String = [String]] wheel
+   V first = ‘’
+   L(w) group.split(‘;’)
+      V s = w.trim(‘ ’).split(‘ ’)
+      V name = s[0]
+      wheel[name[0 .< (len)-1]] = s[1..]
+      first = I first == ‘’ {name[0 .< (len)-1]} E first
+   V gen = (0.<20).map(i -> nextfrom(&@wheel, @first)).join(‘ ’)
+   print("  Generates:\n    "gen" ...\n")