tasks a-s

Task/Palindrome-detection/Pascal/palindrome-detection-1.pascal

@@ -0,0 +1,23 @@
+program Palindro;
+
+{ RECURSIVE }
+function is_palindro_r(s : String) : Boolean;
+begin
+   if length(s) <= 1 then
+      is_palindro_r := true
+   else begin
+      if s[1] = s[length(s)] then
+	 is_palindro_r := is_palindro_r(copy(s, 2, length(s)-2))
+      else
+	 is_palindro_r := false
+   end
+end; { is_palindro_r }
+
+{ NON RECURSIVE; see [[Reversing a string]] for "reverse" }
+function is_palindro(s : String) : Boolean;
+begin
+   if s = reverse(s) then
+      is_palindro := true
+   else
+      is_palindro := false
+end;

Task/Palindrome-detection/Pascal/palindrome-detection-2.pascal

@@ -0,0 +1,19 @@
+procedure test_r(s : String; r : Boolean);
+begin
+   write('"', s, '" is ');
+   if ( not r ) then
+      write('not ');
+   writeln('palindrome')
+end;
+
+var
+   s1, s2 : String;
+
+begin
+   s1 := 'ingirumimusnocteetconsumimurigni';
+   s2 := 'in girum imus nocte';
+   test_r(s1, is_palindro_r(s1));
+   test_r(s2, is_palindro_r(s2));
+   test_r(s1, is_palindro(s1));
+   test_r(s2, is_palindro(s2))
+end.