RosettaCodeData/Task/Ackermann-function/Logo/ackermann-function.logo
2023-07-01 13:44:08 -04:00

5 lines
105 B
Text

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