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