Tree from nesting levels: Difference between revisions
Content deleted Content added
→{{header|J}}: flesh things out a little bit |
m →{{header|J}}: slight simplification of "going further" example -- we don't care about parenthesis by themselves as much as we care about where they match |
||
Line 1,147: | Line 1,147: | ||
<lang J>pnest=: {{ |
<lang J>pnest=: {{ |
||
t=. ;:y |
t=. ;:y |
||
p=. ;:'()' |
p=. (;:'()')=/t |
||
d=: +/\-/p |
d=: +/\-/p |
||
k=: =/p |
k=: =/p |
||
merge d <@]^:[&.>&(k&#) t |
merge d <@]^:[&.>&(k&#) t |
||
}}</lang> |
}}</lang> |