RosettaCodeData/Task/Ackermann-function/K/ackermann-function.k
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
58 B
Text

ack:{:[0=x;y+1;0=y;_f[x-1;1];_f[x-1;_f[x;y-1]]]}
ack[2;2]