Data commit

Task/Multisplit/J/multisplit-1.j

@@ -0,0 +1,14 @@
+multisplit=: {{
+  'begin sep'=. |:bs=. _,~/:~;(,.&.>i.@#) y I.@E.L:0 x NB.
+  len=. #@>y NB.
+  r=. i.3 0
+  j=. k=. 0
+  while.j<#x do.
+    while. j>k{begin do. k=.k+1 end.
+    'b s'=. k{bs NB. character index where separator appears, separator index
+    if. _=b do. r,.(j}.x);'';'' return. end.
+    txt=. (j + i. b-j){x
+    j=. b+s{len
+    r=.r,.txt;(s{::y);b
+  end.
+}}

Task/Multisplit/J/multisplit-2.j

@@ -0,0 +1,24 @@
+   S multisplit '==';'!=';'='
+┌──┬──┬─┬──┬─┐
+│a │  │b│  │c│
+├──┼──┼─┼──┼─┤
+│!=│==│=│!=│ │
+├──┼──┼─┼──┼─┤
+│1 │3 │6│7 │ │
+└──┴──┴─┴──┴─┘
+   S multisplit '=';'!=';'=='
+┌──┬─┬─┬─┬──┬─┐
+│a │ │ │b│  │c│
+├──┼─┼─┼─┼──┼─┤
+│!=│=│=│=│!=│ │
+├──┼─┼─┼─┼──┼─┤
+│1 │3│4│6│7 │ │
+└──┴─┴─┴─┴──┴─┘
+   'X123Y' multisplit '1';'12';'123';'23';'3'
+┌─┬──┬─┐
+│X│  │Y│
+├─┼──┼─┤
+│1│23│ │
+├─┼──┼─┤
+│1│2 │ │
+└─┴──┴─┘