Haskell Program To Check Whether The Input Number Is A Palindrome

This tutorial discusses writing a program to check whether the input number is a Palindrome number in the Haskell programming language.

A number can be called as a palindrome when it results in the same number when the digits are reversed. For Example, the number 12321 is a palindrome, because after reversing the digits it results in the same number.

In this tutorial we see,

• Program to check whether the input number is a palindrome using the string reverse function.

• Program to check whether the input number is a palindrome using the recursive function.

Method 1: Checking Palindrome using String Reverse Function

Algorithm Steps

• We declared a function isPalindrome which takes an integer as an argument and returns a boolean value.

• Using the "Where" keyword to express the logic in multiple statements

• Converting the number to number to string using the function show and

• Reversing the string by using the function reverse

• Comparing both the strings

• Printing the results as per the boolean expression got from comparison

Example

-- function declaration
isPalindrome :: Int->Bool

-- function definition
isPalindrome n = (n == k)
   where
-- Converting integer to string using function show
   nStr = reverse (show n)
-- Converting string to an integer using function read
   k = (read nStr :: Int)

main :: IO()
main = do
-- initializing variable num
   let num = 12321
-- invoking the function isPalindrome
   let status = isPalindrome num
-- printing the status
   if(status==True)
      then print ("The number " ++ show num ++ " is a palindrome")
   else print ("The number " ++ show num ++ " is not a palindrome")

Output

"The number 12321 is a palindrome"

Method 2: Checking Palindrome using String Recursive Function

Algorithm

• We declared a function isPalindrome as such it takes three integer arguments and returns a boolean value.

• Create a main function and define a value to check whether it is a palindrome or not.

• Initiailize the Palendrom function in the main function towards the defined number.

• Print the result as per the boolean expression got from the Palendrom function.

Example

Program to check whether the input number is a palindrome using the recursive function

-- function declaration
isPalindrome :: Int->Int->Int->Bool
-- function definition
isPalindrome num a revNum = if(a==0)
   then if (revNum == num)
      then True
      else False
   else k
      where
      d = mod a 10
      newRevNum = revNum*10 + d
      newA = div a 10
      k = isPalindrome num newA newRevNum
 
main :: IO()
main = do
-- initializing variable num
   let num = 1256521
-- invoking the function isPalindrome
   let status = isPalindrome num num 0
-- printing the status
   if(status==True)
      then print ("The number " ++ show num ++ " is a palindrome")
   else print ("The number " ++ show num ++ " is not a palindrome")

Output

"The number 1256521 is a palindrome"

Conclusion

In this tutorial, we discussed two ways to implement a program to check whether the number is a palindrome in the Haskell programming Language.