Rosetta Code

File size distribution: Difference between revisions

Page Discussion

File size distribution (view source)

Revision as of 15:04, 26 June 2020

23 bytes removed ,  3 years ago
m
→‎{{header|Haskell}}: optimize file collection
(Add Factor)
m (→‎{{header|Haskell}}: optimize file collection)
Line 441:
import GHC.Conc (getNumProcessors)
import System.Directory (doesDirectoryExist, doesFileExist,
getDirectoryContentslistDirectory,
pathIsSymbolicLink)
import System.Environment (getArgs)
Line 562:
pure []
where
tryCollect = do(fmap (folderPath </>) <$> listDirectory folderPath) >>= mapM f
where
contents <- fmap (folderPath </>) <$> getDirectoryContents folderPath
files <- filterMf doesFileExistp contents= do
folders <- drop 2 isFolder <$> filterM- doesDirectoryExist contentsp
if isFolder then
items <- mapM (\f -> File f <$> withFile f ReadMode hFileSize) files▼
pure $ items <> fmap pure $ Folder foldersp
else do
▲ items <- mapM (\f -> File fsize <$>- withFile fp ReadMode hFileSize) files
pure $ File p size
 
parallelItemCollector :: FilePath -> IO [Item]
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/270114"