-- 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 option> NetBSD fork for lockdoc analysismerlin@scholz.ruhr
summaryrefslogtreecommitdiff
path: root/gnu/dist/binutils/bfd/cpu-alpha.c
AgeCommit message (Expand)Author
2009-11-07Remove old binutils.skrll
2006-02-02Import binutils 2.16.1.skrll
2004-12-08initial import of binutils 2.15 branch (20041204)mrg
2003-11-26initial import of binutils 2.14 into gnu/dist/binutils.mrg