RosettaCodeData/Task/File-size-distribution/Mathematica/file-size-distribution.math

mirror of https://github.com/acmeism/RosettaCodeData.git
SetDirectory[NotebookDirectory[]];
Histogram[FileByteCount /@ Select[FileNames[__], DirectoryQ /* Not], {"Log", 15}, {"Log", "Count"}]
	`SetDirectory[NotebookDirectory[]];`
	`Histogram[FileByteCount /@ Select[FileNames[__], DirectoryQ /* Not], {"Log", 15}, {"Log", "Count"}]`