Anonymous user
File size distribution: Difference between revisions
m
→{{header|Haskell}}
Line 466:
expandGroups :: Int -- ^ Desired number of frequency groups.
-> [Integer] -- ^ List of collected file sizes. Must be sorted.
-> Integer -- ^ Computed frequency group limit
-> FrequencyGroups -- ^ Expanded 'FrequencyGroups'
expandGroups gsize fileSizes groupThreshold
| groupThreshold > 0 = loop 15 $ frequencyGroups gsize fileSizes
| otherwise =
where
loop 0 gs = gs -- break out in case we can't go below threshold
Line 580 ⟶ 579:
printf "%9s <-> %9s %7s\n" "From" "To" "Count"
putStrLn $ replicate 46 '-'
let results =
mapM_ (displayFrequency fileCount) $ Map.assocs results
where
sizes = sort . fileSizes
groupThreshold = round . (*0.25) . realToFrac</lang>▼
▲ groupThreshold = round . (*0.25) . realToFrac
{{out}}
<pre style="height: 50rem;">$ filedist ~/Music 1 ↵
|