RosettaCodeData/Task/Ackermann-function/Wart/ackermann-function.wart

8 lines
133 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
def (ackermann m n)
(if m=0
n+1
n=0
(ackermann m-1 1)
:else
(ackermann m-1 (ackermann m n-1)))