RosettaCodeData/Task/Ackermann-function/Genyris/ackermann-function.genyris
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

9 lines
152 B
Text

def A (m n)
cond
(equal? m 0)
+ n 1
(equal? n 0)
A (- m 1) 1
else
A (- m 1)
A m (- n 1)