RosettaCodeData/Task/Ackermann-function/K/ackermann-function.k

6 lines
81 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
ack:{:[0=x;y+1;0=y;_f[x-1;1];_f[x-1;_f[x;y-1]]]}
ack[2;2]
7
ack[2;7]
17