A-M baby

Task/Multisplit/J/multisplit-1.j

@@ -0,0 +1,12 @@
+multisplit=:4 :0
+  'sep begin'=.|:t=. y /:~&.:(|."1)@;@(i.@#@[ ,.L:0"0 I.@E.L:0) x
+  end=. begin + sep { #@>y
+  last=.next=.0
+  r=.2 0$0
+  while.next<#begin do.
+    r=.r,.(last}.x{.~next{begin);next{t
+    last=.next{end
+    next=.1 i.~(begin>next{begin)*.begin>:last
+  end.
+  r=.r,.'';~last}.x
+)

Task/Multisplit/J/multisplit-2.j

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