-- fixed-point operatorlocal Z =function(le)local a =function(f)returnle(function(x)returnf(f)(x)end)endreturna(a)end-- non-recursive factoriallocal F =function(f)return function(n)if n ==0then return1else return n*f(n-1)endendendlocal fat =Z(F)local s =0for i =1, arg[1]or100do s = s +fat(i)endprint(s)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback