Visualize a tree: Difference between revisions
Content deleted Content added
SqrtNegInf (talk | contribs) m →{{header|Perl 6}}: slip in 'visit' routine needed for certain inputs |
|||
Line 1,361:
) {
sub visit($node, *@pre) {
| gather {
take @pre[0] ~ label($node);
my @children := children($node);
| |||