Return to acker2.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / f

BSD 4.3

procedure acker(i,j)
   local args, k
   static ackermem
   initial ackermem := table()
   args := i || "," || j
   if k := \ackermem[args] then return k
   if i = 0 then return ackermem[args] := j + 1
   if j = 0 then return ackermem[args] := acker(i - 1,1)
   return ackermem[args] := acker(i - 1,acker(i,j - 1))
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.