Data commit

Task/Intersecting-number-wheels/J/intersecting-number-wheels-1.j

@@ -0,0 +1,23 @@
+wheelgroup=:{{
+  yield_wheelgroup_=: {{
+    i=. wheels i.<;y
+    j=. i{inds
+    k=. ".;y
+    l=. j{k
+    inds=: ((#k)|1+j) i} inds
+    if. l e. wheels
+    do.yield l
+    else.{.".;l
+    end.
+  }}
+  gen_wheelgroup_=: {{
+    yield wheel
+  }}
+  grp=. cocreate ''
+  coinsert__grp 'wheelgroup'
+  specs__grp=: cut each boxopen m
+  wheel__grp=: ;{.wheels__grp=: {.every specs__grp
+  init__grp=: {{('inds';wheels)=:(0#~#specs);}.each specs}}
+  init__grp''
+  ('gen_',(;grp),'_')~
+}}

Task/Intersecting-number-wheels/J/intersecting-number-wheels-2.j

@@ -0,0 +1,9 @@
+   task=: {{y wheelgroup^:(1+i.20)_}}
+   task 'A 1 2 3'
+1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3 1 2
+   task 'A 1 B 2';'B 3 4'
+1 3 2 1 4 2 1 3 2 1 4 2 1 3 2 1 4 2 1 3
+   task 'A 1 D D';'D 6 7 8'
+1 6 7 1 8 6 1 7 8 1 6 7 1 8 6 1 7 8 1 6
+   task 'A 1 B C';'B 3 4';'C 5 B'
+1 3 5 1 4 3 1 4 5 1 3 4 1 3 5 1 4 3 1 4