RosettaCodeData/Task/Ackermann-function/Nial/ackermann-function.nial

6 lines
169 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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]]]
]