Tree from nesting levels: Difference between revisions
m
→{{header|J}}: add some comments
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) |
m (→{{header|J}}: add some comments) |
||
Line 1,146:
<lang J>pnest=: {{
t=. ;:y NB. tokens
p=. (;:'()')=/t NB. paren token matches
d=: +/\-/p NB. paren token depths
k=: =/p NB. keep non-paren tokens
merge d <@]^:[&.>&(k&#) t NB. exercise task
}}</lang>
|