Tree from nesting levels: Difference between revisions
Content deleted Content added
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>
|