Ackermann function: Difference between revisions
Add Refal
imported>Arakov |
Not a robot (talk | contribs) (Add Refal) |
||
Line 8,055:
]
]</pre>
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
= <Prout 'A(3,9) = ' <A 3 9>>;
};
A {
0 s.N = <+ s.N 1>;
s.M 0 = <A <- s.M 1> 1>;
s.M s.N = <A <- s.M 1> <A s.M <- s.N 1>>>;
};</syntaxhighlight>
{{out}}
<pre>A(3,9) = 4093</pre>
=={{header|ReScript}}==
|