lama_byterun/regression/test074.expr

16 lines
258 B
Text
Raw Normal View History

2020-01-05 03:33:17 +03:00
local x, m, n;
fun ack (m, n) {
if m == 0 then (n+1)
elif m > 0 && n == 0 then ack (m-1, 1)
else ack (m-1, ack (m, n-1))
fi
}
x := read ();
for m := 0, m <= 3, m := m+1 do
for n := 0, n <= 8, n := n+1 do
write (ack (m, n))
od
od