File size distribution: Difference between revisions
m
→{{header|Perl}}: made output match code
m (→{{header|REXX}}: updated some output.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: made output match code) |
||
Line 285:
$total += $size while (undef,$size) = each %fsize;
for (0 .. max(keys %fsize)) {
printf "# files @ %4sb %8s: %s\n", $_ ? '10e'.($_-1) : 0, $fsize{$_} // 0,
Line 304:
sub log10 { my($s) = @_; $s ? int log($s)/log(10) : 0 }</lang>
{{out}}
<pre>File size distribution in bytes for directory: .
# files @ 10e0b 46455: ████████████████████████████████████████████████████████████████████████████████
# files @ 10e1b 26146: ████████████████████████████████████████▋
| |||