13 lines
359 B
Plaintext
13 lines
359 B
Plaintext
define('ack(m,n)') :(ack_end)
|
|
ack ack = eq(m,0) n + 1 :s(return)
|
|
ack = eq(n,0) ack(m - 1,1) :s(return)
|
|
ack = ack(m - 1,ack(m,n - 1)) :(return)
|
|
ack_end
|
|
|
|
* # Test and display ack(0,0) .. ack(3,6)
|
|
L1 str = str ack(m,n) ' '
|
|
n = lt(n,6) n + 1 :s(L1)
|
|
output = str; str = ''
|
|
n = 0; m = lt(m,3) m + 1 :s(L1)
|
|
end
|