RosettaCodeData/Task/Ackermann-function/Nial/ackermann-function.nial
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
169 B
Text

ack is fork [
= [0 first, first], +[last, 1 first],
= [0 first, last], ack [ -[first, 1 first], 1 first],
ack[ -[first,1 first], ack[first, -[last,1 first]]]
]