Tree from nesting levels: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,058: / Line 1,058: @@
 <lang J>merge=: {{
-   if. 2>L.y do. y return. end.
+  if.(0=#$y)+.2>L.y do.y return.end.
-   shallow=. 2 > L."0 y
+  shallow=. 2 > L."0 y
-   group=. shallow} (+/\ shallow),:-#\y
+  group=. shallow} (+/\ shallow),:-#\y
-   merge each group ,each//. y
+  merge each group ,each//. y
 }}