Haskell Program To Check Whether The Input String Is A Palindrome

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

A string is said to be a palindrome when it results in an exact string after reversing it. For example, the string "level" is a palindrome because it results in an exact string even after reversing it.

In this tutorial we see,

• Program to check whether the string is a palindrome using a built-in function reverse.

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

Method 1: Checking The String Is A Palindrome Using A Built-In Function

Algorithm

• We declare a function isPalindrome, this function returns the output of the comparison which is a boolean value.

• Then we declare the main function, where a variable str is initialized with the value "kayak". The function isPalindrome is invoked with the initialized string str as an argument. The output of the function is loaded into a variable status.

• Finally, the value of the status is checked with the if statement, if the value of the status is true the program prints that the string is a palindrome, else the program prints the string as not a palindrome.

Example

-- function declaration isPalindrome :: [Char]->Bool -- function definition isPalindrome str = (str==(reverse str)) main :: IO() main = do -- initializing variable str let str = "kayak" -- invoking the function isPalindrome let status = isPalindrome str -- printing the status if (status) then print ("The string " ++ str ++ " is a Palindrome") else print ("The string " ++ str ++ " is not a Palindrome") 

Output

"The string kayak is a Palindrome" 

Method 2: Check Whether The String Is A Palindrome Using A Recursive Function

Algorithm

• Declare a function StringReverse, this function returns the reverse of the string argument.

• Declare a function isPalindrome, this function returns the output of the comparison which is a boolean value.

• Create a main function and initialize the string to be checked for Palindrome

• Using the isPalindrome function and StringReverse function check whether both the strings match

• Print the result

Example

-- function declaration stringReverse :: [Char]->[Char] -- function definition -- base case stringReverse [] = [] stringReverse (ch:str) = (stringReverse str) ++ [ch] -- function declaration isPalindrome :: [Char]->Bool -- function definition isPalindrome str = (str==(stringReverse str)) main :: IO() main = do -- initializing variable str let str = "kayak" -- invoking the function isPalindrome let status = isPalindrome str -- printing the status if (status) then print ("The string " ++ str ++ " is a Palindrome") else print ("The string " ++ str ++ " is not a Palindrome") 

Output

"The string kayak is a Palindrome" 

Conclusion

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