benchmarks

Author: xiaodaigh

.gitignore

@@ -5,3 +5,4 @@
 *.csv
 
 *.png
+!readme_string_sort.png

benchmarks/benchmarks.jl

@@ -34,4 +34,5 @@ end
 
 string_sort_perf(100, 100) # warm up
 
-@time string_sort_perf.((1:10).*10^8, 100)
+@time string_sort_perf.((1:10).*10^8, 100)
+

benchmarks/readme.jl

@@ -0,0 +1,23 @@
+# short be
+using SortingLab, ShortStrings, SortingAlgorithms, BenchmarkTools;
+N = Int(1e6);
+svec = [randstring(rand(1:15)) for i=1:N];
+# convert to ShortString
+ssvec = ShortString.(svec);
+basesort = @benchmark sort($svec)
+radixsort_timings = @benchmark SortingLab.radixsort($svec)
+short_radixsort = @benchmark sort($ssvec, by = x->x.size_content, alg=RadixSort)
+
+using RCall
+
+@rput svec;
+r_timings = R"""
+replicate($(length(short_radixsort.times)), system.time(sort(svec, method="radix"))[3])
+""";
+
+using Plots
+bar(["Base.sort","SortingLab.radixsort","ShortStrings radix sort", "R radix sort"],
+    mean.([basesort.times./1e9, radixsort_timings.times./1e9, short_radixsort.times./1e9, r_timings]),
+    title="String sort performance - len: 1m, variable size 15",
+    label = "seconds")
+savefig("readme_string_sort.png")

readme_string_sort.png

@@ -29,6 +29,9 @@ Base.display(s::ShortString) = display(s.size_content)
 Base.convert(::ShortString, s::String) = ShortString(s)
 Base.convert(::String, ss::ShortString) = reduce(*, ss)
 Base.start(::ShortString) = 1
+# Base.sort(svec::AbstractVector{ShortString}; rev::Bool = false) = sort(svec, rev=rev, by = x->x.size_content, alg=RadixSort)
 # Base.sort(x::AbstractVector{ShortString}; kwargs...) = sort(x, by = x->x.size_content, alg = RadixSort; kwargs...)
 
 end # module
+
+