How to write a query to find the weather string is Palindrome or not?

Question

suppose if i give '12345'

output should be:

1
12
123
1234
12345
1234
123
12
1

Answer 1

DECLARE
lc_str1 VARCHAR2(10) := '&S';
lc_str2 VARCHAR2(10);
ln_n NUMBER;
BEGIN
ln_n := LENGTH(lc_str1);
-- DBMS_OUTPUT.PUT_LINE(ln_n);
FOR i IN REVERSE 1 .. ln_n LOOP
lc_str2 := lc_str2 || SUBSTR(lc_str1,i,1);
-- DBMS_OUTPUT.PUT_LINE(lc_str2);
END LOOP;
IF lc_str1 = lc_str2 THEN
DBMS_OUTPUT.PUT_LINE('Palindrome');
ELSE
DBMS_OUTPUT.PUT_LINE('Not Palindrome');
END IF;
END;

Input:
ARUN

Output:
Not Palindrome

Input:
MOM

Output:
Palindrome