RosettaCodeData/Task/Ackermann-function/GML/ackermann-function.gml

17 lines
221 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
///ackermann(m,n)
var m, n;
m = argument0;
n = argument1;
2013-04-10 21:29:02 -07:00
if(m=0)
2015-02-20 00:35:01 -05:00
{
2013-04-10 21:29:02 -07:00
return (n+1)
2015-02-20 00:35:01 -05:00
}
else if(n == 0)
{
2013-04-10 21:29:02 -07:00
return (ackermann(m-1,1,1))
2015-02-20 00:35:01 -05:00
}
2013-04-10 21:29:02 -07:00
else
2015-02-20 00:35:01 -05:00
{
2013-04-10 21:29:02 -07:00
return (ackermann(m-1,ackermann(m,n-1,2),1))
2015-02-20 00:35:01 -05:00
}