Tree datastructures: Difference between revisions

sub nested_to_indent { shift =~ s#^(($level*))*# ($1 ? (length ($1)/2length $level : 0) . ' ' #egmr }

sub indent_to_nested { shift =~ s#^(\d+)\s*# $level x +$1 #egmr }