From b8147afcc5bfbeb5fad62e4f68f1b88fc6c60d96 Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Thu, 18 Aug 2022 20:52:26 -0500
Subject: add lua-5.1.5 files

---
 libs/lua-5.1.5/test/fib.lua | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 libs/lua-5.1.5/test/fib.lua

(limited to 'libs/lua-5.1.5/test/fib.lua')

diff --git a/libs/lua-5.1.5/test/fib.lua b/libs/lua-5.1.5/test/fib.lua
new file mode 100644
index 0000000..97a921b
--- /dev/null
+++ b/libs/lua-5.1.5/test/fib.lua
@@ -0,0 +1,40 @@
+-- fibonacci function with cache
+
+-- very inefficient fibonacci function
+function fib(n)
+	N=N+1
+	if n<2 then
+		return n
+	else
+		return fib(n-1)+fib(n-2)
+	end
+end
+
+-- a general-purpose value cache
+function cache(f)
+	local c={}
+	return function (x)
+		local y=c[x]
+		if not y then
+			y=f(x)
+			c[x]=y
+		end
+		return y
+	end
+end
+
+-- run and time it
+function test(s,f)
+	N=0
+	local c=os.clock()
+	local v=f(n)
+	local t=os.clock()-c
+	print(s,n,v,t,N)
+end
+
+n=arg[1] or 24		-- for other values, do lua fib.lua XX
+n=tonumber(n)
+print("","n","value","time","evals")
+test("plain",fib)
+fib=cache(fib)
+test("cached",fib)
-- 
cgit v1.2.1