count nodes/layers
1234567891011121314
my $levels = 0 ;
my $header = <> ;
my $employees = { map {chomp; split ',',$_ } <> } ;
for (sort keys %$employees) {
do {
print "$_ ";
$_ = $employees->{$_};
$levels++;
} while defined ;
$levels--; # for fencepost
print $levels == 1 ? "--- $levels level" : "--- $levels levels" ;
print $levels > 3 ? "\nYou have $levels layers. Reread Section 5.1.\n" : "\n" ;
$levels = 0 ;
}
Perl
INFO