File size distribution: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: made output match code) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: consolidated prints) |
||
Line 331:
my $bar-size = 80;
say "File size distribution in bytes for directory: $dir\n";
▲ for 1 .. %fsize.keys.max {
histogram( $max, %fsize{$_} // 0, $bar-size )
}
|