From afc5ebdeece428d4ef72f4f1f4b178a92d1b9cba Mon Sep 17 00:00:00 2001
From: chai <chaifix@163.com>
Date: Fri, 7 Dec 2018 01:18:45 +0800
Subject: +lua51

---
 src/3rdparty/lua-5.1.5/test/factorial.lua | 32 +++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/3rdparty/lua-5.1.5/test/factorial.lua

(limited to 'src/3rdparty/lua-5.1.5/test/factorial.lua')

diff --git a/src/3rdparty/lua-5.1.5/test/factorial.lua b/src/3rdparty/lua-5.1.5/test/factorial.lua
new file mode 100644
index 0000000..7c4cf0f
--- /dev/null
+++ b/src/3rdparty/lua-5.1.5/test/factorial.lua
@@ -0,0 +1,32 @@
+-- function closures are powerful
+
+-- traditional fixed-point operator from functional programming
+Y = function (g)
+      local a = function (f) return f(f) end
+      return a(function (f)
+                 return g(function (x)
+                             local c=f(f)
+                             return c(x)
+                           end)
+               end)
+end
+
+
+-- factorial without recursion
+F = function (f)
+      return function (n)
+               if n == 0 then return 1
+               else return n*f(n-1) end
+             end
+    end
+
+factorial = Y(F)   -- factorial is the fixed point of F
+
+-- now test it
+function test(x)
+	io.write(x,"! = ",factorial(x),"\n")
+end
+
+for n=0,16 do
+	test(n)
+end
-- 
cgit v1.1-26-g67d0