Anonymous user
File size distribution: Difference between revisions
Add Julia language
(Add Julia language) |
|||
Line 144:
</pre>
Note that it is possible to track files up to 10^24 (Yottabyte) in size with this implementation, but if you have a file that large, you shouldn't be needing such programs. :)
=={{header|Julia}}==
{{works with|Julia|0.6}}
<lang julia>using Humanize
function sizelist(path::AbstractString)
rst = Vector{Int}(0)
for (root, dirs, files) in walkdir(path)
files = joinpath.(root, files)
tmp = collect(filesize(f) for f in files if !islink(f))
append!(rst, tmp)
end
return rst
end
byclass(y, classes) = Dict{eltype(classes),Int}(c => count(c[1] .≤ y .< c[2]) for c in classes)
function main(path::AbstractString)
s = sizelist(path)
cls = append!([(0, 1)], collect((10 ^ (i-1), 10 ^ i) for i in 1:9))
f = byclass(s, cls)
println("filesizes: ")
for c in cls
@printf(" - between %8s and %8s bytes: %3i\n", datasize(c[1]), datasize(c[2]), f[c])
end
println("\n-> total: $(datasize(sum(s))) bytes and $(length(s)) files")
end
main(".")</lang>
{{out}}
<pre>filesizes:
- between 0.0 B and 1.0 B bytes: 0
- between 1.0 B and 10.0 B bytes: 1
- between 10.0 B and 100.0 B bytes: 44
- between 100.0 B and 1.0 kB bytes: 1068
- between 1.0 kB and 10.0 kB bytes: 250
- between 10.0 kB and 100.0 kB bytes: 7
- between 100.0 kB and 1.0 MB bytes: 4
- between 1.0 MB and 10.0 MB bytes: 2
- between 10.0 MB and 100.0 MB bytes: 0
- between 100.0 MB and 1.0 GB bytes: 0
-> total: 7.3 MB bytes and 1376 files</pre>
=={{header|Perl 6}}==
| |||