Ackermann function: Difference between revisions
Added Quackery.
Not a robot (talk | contribs) (Add MAD) |
(Added Quackery.) |
||
Line 6,678:
ack2(M-1, 1) if N == 0 else ack2(M-1, ack2(M, N-1))))))</lang>
Results confirm those of Mathematica for ack(4,1) and ack(4,2)
=={{header|Quackery}}==
<lang Quackery> forward is ackermann ( m n --> r )
[ over 0 = iff
[ nip 1 + ] done
dup 0 = iff
[ drop 1 - 1
ackermann ] done
over 1 - unrot 1 -
ackermann ackermann ] resolves ackermann ( m n --> r )
3 10 ackermann echo</lang>
'''Output:'''
<pre>8189</pre>
=={{header|R}}==
| |||