File size distribution: Difference between revisions

import Data.List (sort, genericLength, genericTake)

import System.Directory (getDirectoryContents, doesFileExist

import System.Environment (getArgs)

import System.FilePath.Posix (pathSeparator, (</>))

deriving (Show)

 

frequencyGroups totalGroups xs = placeGroups xs groupMinMax

where

range = maximum xs - minimum xs

groupSize = succ $ ceiling $ realToFrac range / realToFrac totalGroups

groupMinMax = (,0) <$> zip groups (pred <$> tail groups)

 

pure $ a <> join b <> fmap Folder folders

 

displayFrequency ((min, max), count) =

printf "%5s <-> %5s = %d\n" (displaySize min) (displaySize max) count