Added benchmark date to BENCH.LUA script. The year range starts at 1980 and runs benchmarks exponentially more times with each passing year.

Author: Lethja

demo/core/BENCH.LUA

@@ -7,76 +7,65 @@ function OS()
 		return os.getenv("SHELL") and "UNIX" or "Unknown"
 	end
 end
-
 function BS(name, iterations)
-	io.write(string.format("%-9s", name) .. "\t" .. string.format("%10s", iterations) .. "\t")
-	io.flush()
-	return os.clock()
+	local t = #tostring(iterations) > 10 and string.format("%10e", iterations):gsub("%..-e", "e") or iterations
+	io.write(string.format("%-9s", name) .. "\t" .. string.format("%10s", t) .. "\t") io.flush() return os.clock()
 end
-
 function BE(start_time)
 	local t = os.clock() - start_time
 	local m, s = math.floor(t / 60), (t % 60)
 	io.write(string.format("%7d:%09.6f\n", m, s))
 end
-
 local function b_pi()
-	local it, pi, si = 20000, 3, 1
+	local it, pi, si = S, 3, 1
 	local b = BS("Nilakantha Pi", it)
 	for i = 2, it * 2, 2 do
-		pi = pi + si * (4 / (i * (i + 1) * (i + 2)))
-		si = -si
-	end
-	BE(b)
+		pi = pi + si * (4 / (i * (i + 1) * (i + 2))) si = -si
+	end BE(b)
 end
 local function b_gcd()
-	local function gcd(a, b) -- Function to compute the greatest common divisor
-		while b ~= 0 do a, b = b, a % b end
-		return a
-	end
-	local m, r = 5000, 0
-	local b = BS("Common Divisor", m)
-	for i = 1, m do local x = i local y = m - i + 1 r = gcd(x, y) end BE(b)
+	local function gcd(a, b) while b ~= 0 do a, b = b, a % b end return a end
+	local r, b = 0, BS("Common Divisor", S)
+	for i = 1, S do local x = i local y = S - i + 1 r = gcd(x, y) end BE(b)
 end
 local function b_mul()
-	local m, r = 100000, 1
-	local b = BS("Multiplication", m)
-	for _ = 1, m do r = (r * 1.000000001) end BE(b)
+	local r, b = 1, BS("Multiplication", B)
+	for _ = 1, B do r = (r * 1.000000001) end BE(b)
 end
 local function b_div()
-	local m, r = 100000, 1
-	local b = BS("Division", m)
-	m = m + 1
+	local m, r = B, 1
+	local b = BS("Division", m) m = m + 1
 	for i = 2, m do r = r / i end BE(b)
 end
 local function b_add()
-	local r, m = 1, 100000
-	local b = BS("Addition", m)
-	for i = 1, m do r = r + i end BE(b)
+	local r, b = 1, BS("Addition", B)
+	for i = 1, B do r = r + i end BE(b)
 end
 local function b_flt()
-	local r, m = 1.0, 100000
-	local b = BS("Float Addition", m)
-	for _ = 1, m do r = r + 0.01 end BE(b)
+	local r, b = 1.0, BS("Float Addition", B)
+	for _ = 1, B do r = r + 0.01 end BE(b)
 end
 local function b_sub()
-	local r, m = 1, 100000
-	local b = BS("Subtraction", m)
-	for i = m, 1, -1 do r = r - i end BE(b)
+	local r, b = 1, BS("Subtraction", B)
+	for i = B, 1, -1 do r = r - i end BE(b)
 end
 local function b_arr()
-	local m = 1000
-	local b = BS("Array Loop", m)
-	local a, s = {}, 0
-	for i = 1, m do a[i] = i % 10 end
-	for i = 1, m do a[i] = a[i] * 2 end
-	for i = 1, m do s = s + a[i] end BE(b)
+	local b, a, s = BS("Array Loop", S), {}, 0
+	for i = 1, S do a[i] = i % 10 end
+	for i = 1, S do a[i] = a[i] * 2 end
+	for i = 1, S do s = s + a[i] end BE(b)
 end
 local function L() print(string.rep('_', 49)) end
 print("Runtime:", _VERSION)
 print("OS Family:", OS())
 print("Minimum Int:", math.mininteger or "Unknown")
 print("Maximum Int:", math.maxinteger or "Unknown")
+M=tonumber(arg[1])
+if not M or M < 1980 then
+	print("\nTo benchmark, run again and specify a year > 1979") os.exit()
+end
+print("\nRunning benchmark: " .. M) M = (M-1955)/25
+B, S = math.floor(500^M), math.floor(100^M)
 print("\nBenchmark", "Iterations", "Time (min:sec.ms)")
 L()
 b = os.clock()

demo/xtra/EXBENCH.LUA

@@ -1,42 +1,36 @@
 if not LIB then print("Please run bench.lua from the same working directory instead") return end
 
 local function benchmark_md5sum()
-    local it, s = 2, pcall(require, "MD5SUM")
-    local bm = BS("Checksum MD5", it)
-    local file = io.open(arg[0], "rb")
+    local s, bm, file = pcall(require, "MD5SUM"), BS("Checksum MD5", T), io.open(arg[0], "rb")
 
     if not s or not file then
         if file then file:close() end
         print(string.format("%17s", "Skipped"))
         return
     end
 
-    for _ = 1, it do
-        md5_file(file)
-        file:seek("set", 0)
+    for _ = 1, T do
+        md5_file(file) file:seek("set", 0)
     end
-    file:close()
-    BE(bm)
+
+    file:close() BE(bm)
 end
 
 local function benchmark_sha256()
-    local it, s = 1, pcall(require, "S256SUM")
-    local bm = BS("Checksum SHA256", it)
-    local file = io.open(arg[0], "rb")
+    local s, bm, file = pcall(require, "S256SUM"), BS("Checksum SHA256", T), io.open(arg[0], "rb")
 
     if not s or not file then
         if file then file:close() end
         print(string.format("%17s", "Skipped"))
         return
     end
 
-    for _ = 1, it do
-        sha256_file(file)
-        file:seek("set", 0)
+    for _ = 1, T do
+        sha256_file(file) file:seek("set", 0)
     end
-    file:close()
-    BE(bm)
-end
 
+    file:close() BE(bm)
+end
+T=math.floor(2^M)
 benchmark_md5sum()
 benchmark_sha256()