Tree datastructures: Difference between revisions
m
→{{header|Perl}}: tweak
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: tweak) |
||
Line 183:
my $level = ' ';
sub nested_to_indent { shift =~ s#^
sub indent_to_nested { shift =~ s#^(\d+)\s*# $level x
say my $indent = nested_to_indent $trees;
|