CREATE OR REPLACE FUNCTION palindrome
(str VARCHAR2)
RETURN NUMBER
IS
t NUMBER;
len NUMBER;
BEGIN
len := LENGTH(str);
--
FOR t IN 1..len LOOP
IF SUBSTR(str,t,1) <> SUBSTR(str,len-t+1,1) THEN
RETURN 0;
END IF;
END LOOP;
--
RETURN 1;
END;

Next time please post this type of question in the right forum (it's not so hard you know)

Well I have something to do...I am helping you