From f065d7884d353c3545535850e4e8bdf8e10025ca Mon Sep 17 00:00:00 2001 From: chai Date: Thu, 6 Dec 2018 00:32:34 +0800 Subject: =?UTF-8?q?*=E5=88=9D=E5=A7=8B=E5=8C=96?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- libs/lua-5.1.5/test/factorial.lua | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 libs/lua-5.1.5/test/factorial.lua (limited to 'libs/lua-5.1.5/test/factorial.lua') diff --git a/libs/lua-5.1.5/test/factorial.lua b/libs/lua-5.1.5/test/factorial.lua new file mode 100644 index 0000000..7c4cf0f --- /dev/null +++ b/libs/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