RosettaCodeData/Task/Ackermann-function/Logo/ackermann-function.logo
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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