RosettaCodeData/Task/Ackermann-function/Logo/ackermann-function.logo

6 lines
105 B
Plaintext

to ack :i :j
if :i = 0 [output :j+1]
if :j = 0 [output ack :i-1 1]
output ack :i-1 ack :i :j-1
end