new files

Task/Ackermann-function/Ada/ackermann-function.ada

@@ -0,0 +1,21 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+procedure Test_Ackermann is
+   function Ackermann (M, N : Natural) return Natural is
+   begin
+      if M = 0 then
+         return N + 1;
+      elsif N = 0 then
+         return Ackermann (M - 1, 1);
+      else
+         return Ackermann (M - 1, Ackermann (M, N - 1));
+      end if;
+   end Ackermann;
+begin
+   for M in 0..3 loop
+      for N in 0..6 loop
+         Put (Natural'Image (Ackermann (M, N)));
+      end loop;
+      New_Line;
+   end loop;
+end Test_Ackermann;