Anonymous user
File size distribution: Difference between revisions
m
→{{header|Haskell}}
Line 548:
printf "Total size: %s\n" $ displaySize $ totalBytes items
putStrLn "\nDistribution:"
let results =
where
sizes = sort . fileSizes
groupThreshold = round . (*0.25) . realToFrac
expandedGroups gsize sizes n = filter ((>0) . snd)
. expandGroups gsize sizes n
. initialGroups gsize</lang>
{{out}}
<pre style="height: 50rem;">$ filedist
| |||