RosettaCodeData/Task/Ackermann-function/Jq/ackermann-function-1.jq

8 lines
168 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
# input: [m,n]
def ack:
.[0] as $m | .[1] as $n
| if $m == 0 then $n + 1
elif $n == 0 then [$m-1, 1] | ack
else [$m-1, ([$m, $n-1 ] | ack)] | ack
end ;