Ackermann function: Difference between revisions

Content deleted Content added
ackermann's function in m4
m made m4 the first m
Line 436: Line 436:
fi;
fi;
end</lang>
end</lang>

=={{header|M4}}==
<lang M4>define(`ack',`ifelse($1,0,`incr($2)',`ifelse($2,0,`ack(decr($1),1)',`ack(decr($1),ack($1,decr($2)))')')')dnl
ack(3,3)</lang>

Output:
<pre>61 </pre>


=={{header|Mathematica}}==
=={{header|Mathematica}}==
Line 560: Line 567:
3 5 7 9 11 13 15
3 5 7 9 11 13 15
5 13 29 61 125 253 509 </pre>
5 13 29 61 125 253 509 </pre>

=={{header|M4}}==
<lang M4>define(`ack',`ifelse($1,0,`incr($2)',`ifelse($2,0,`ack(decr($1),1)',`ack(decr($1),ack($1,decr($2)))')')')dnl
ack(3,3)</lang>

Output:
<pre>61 </pre>


=={{header|Nial}}==
=={{header|Nial}}==