Data commit

Task/Ackermann-function/Mathematica/ackermann-function-1.math

@@ -0,0 +1,11 @@
+$RecursionLimit=Infinity
+Ackermann1[m_,n_]:=
+ If[m==0,n+1,
+  If[ n==0,Ackermann1[m-1,1],
+   Ackermann1[m-1,Ackermann1[m,n-1]]
+  ]
+ ]
+
+ Ackermann2[0,n_]:=n+1;
+ Ackermann2[m_,0]:=Ackermann1[m-1,1];
+ Ackermann2[m_,n_]:=Ackermann1[m-1,Ackermann1[m,n-1]]

Task/Ackermann-function/Mathematica/ackermann-function-2.math

@@ -0,0 +1 @@
+Flatten[#,1]&@Table[{"Ackermann2["<>ToString[i]<>","<>ToString[j]<>"] =",Ackermann2[i,j]},{i,3},{j,8}]//Grid

Task/Ackermann-function/Mathematica/ackermann-function-3.math

@@ -0,0 +1,24 @@
+Ackermann2[1,1] =	3
+Ackermann2[1,2] =	4
+Ackermann2[1,3] =	5
+Ackermann2[1,4] =	6
+Ackermann2[1,5] =	7
+Ackermann2[1,6] =	8
+Ackermann2[1,7] =	9
+Ackermann2[1,8] =	10
+Ackermann2[2,1] =	5
+Ackermann2[2,2] =	7
+Ackermann2[2,3] =	9
+Ackermann2[2,4] =	11
+Ackermann2[2,5] =	13
+Ackermann2[2,6] =	15
+Ackermann2[2,7] =	17
+Ackermann2[2,8] =	19
+Ackermann2[3,1] =	13
+Ackermann2[3,2] =	29
+Ackermann2[3,3] =	61
+Ackermann2[3,4] =	125
+Ackermann2[3,5] =	253
+Ackermann2[3,6] =	509
+Ackermann2[3,7] =	1021
+Ackermann2[3,8] =	2045

Task/Ackermann-function/Mathematica/ackermann-function-4.math

@@ -0,0 +1,8 @@
+Clear[Ackermann3]
+$RecursionLimit=Infinity;
+Ackermann3[0,n_]:=n+1;
+Ackermann3[1,n_]:=n+2;
+Ackermann3[2,n_]:=3+2n;
+Ackermann3[3,n_]:=5+8 (2^n-1);
+Ackermann3[m_,0]:=Ackermann3[m-1,1];
+Ackermann3[m_,n_]:=Ackermann3[m-1,Ackermann3[m,n-1]]

Task/Ackermann-function/Mathematica/ackermann-function-5.math

@@ -0,0 +1,2 @@
+Ackermann3[4, 1]
+Ackermann3[4, 2]

Task/Ackermann-function/Mathematica/ackermann-function-6.math

@@ -0,0 +1,2 @@
+65533
+2003529930406846464979072351560255750447825475569751419265016973710894059556311453089506130880........699146577530041384717124577965048175856395072895337539755822087777506072339445587895905719156733