Data commit

Task/Palindrome-detection/Ada/palindrome-detection-1.ada

@@ -0,0 +1,9 @@
+function Palindrome (Text : String) return Boolean is
+begin
+   for Offset in 0..Text'Length / 2 - 1 loop
+      if Text (Text'First + Offset) /= Text (Text'Last - Offset) then
+         return False;
+      end if;
+   end loop;
+   return True;
+end Palindrome;

Task/Palindrome-detection/Ada/palindrome-detection-2.ada

@@ -0,0 +1,2 @@
+function Palindrome (Text : String) return Boolean is
+(for all i in Text'Range => Text(i)= Text(Text'Last-i+Text'First));