W.A.S.S to check whether a given number is palindrome or not.

Program

   # W.A.S.S to check whether a given number is palindrome or not.

echo "Enter any no.:"

read num

temp=$num

rem=0

len=0

result=0

while test $temp -gt 0            # loop to find the revese of the given number

do

rem=`expr $temp % 10`

result=`expr $result \* 10 + $rem`

temp=`expr $temp / 10`

done

echo "$result "

if test $result = $num             #if reverse of no is same as given no  

then

echo "Entered no is palimdrom"

else

echo "Entered is not a palimdrom"

fi

Output

Enter any no.:

1221

1221

Entered no is palimdrome

Enter any no.:

1234

4321

Entered is not a palimdrome