- Trending Categories
- Data Structure
- Operating System
- MS Excel
- C Programming
- Social Studies
- Fashion Studies
- Legal Studies
- Selected Reading
- UPSC IAS Exams Notes
- Developer's Best Practices
- Questions and Answers
- Effective Resume Writing
- HR Interview Questions
- Computer Glossary
- Who is Who
Haskell Program to create a simple recursive function
In this article, we are going to understand how to create a simple function in Haskell using user-defined function. Here, the user-defined recursive functions are defined that will contain base case and recursive case. Then, these functions are being called recursively by passing the argument to it.
In all the examples, we are going to define certain functions to perform certain tasks. All these functions include, base and recursive cases. The function defined includes factorial, fibonacci, sumList, etc.
Step 1 − The user defined recursive function is defined with base and recursive case.
Step 2 − Program execution will be started from main function. The main() function has whole control of the program. It is written as main = do. In the main function, the user defined recursive function is being called recursively again and again
Step 3 − The result is printed to the console, after the function is being called recursively.
In this example, the factorial function takes an integer n as an argument and returns the factorial of n. The function is defined using pattern matching, where the first equation factorial 0 = 1 is the base case, and the second equation factorial n = n * factorial (n-1) is the recursive case.
factorial :: Int -> Int factorial 0 = 1 factorial n = n * factorial (n-1) main = do let result = factorial 5 print result
In this example, the fib function takes an integer n as an argument and returns the nth Fibonacci number. The function is defined using pattern matching, where the first two equations fib 0 = 0 and fib 1 = 1 are the base cases, and the third equation fib n = fib (n-1) + fib (n-2) is the recursive case.
fib :: Int -> Int fib 0 = 0 fib 1 = 1 fib n = fib (n-1) + fib (n-2) main = do let result = fib 10 print result
In this example, the sumList function takes a list of integers xs as an argument and returns the sum of its elements. The function is defined using pattern matching, where the first equation sumList  = 0 is the base case, and the second equation sumList (x:xs) = x + sumList xs is the recursive case.
sumList :: [Int] -> Int sumList  = 0 sumList (x:xs) = x + sumList xs main = do let result = sumList [1,2,3,4,5] print result
In this example, a function sumOfNaturalNumbers is defined which takes an integer n as an argument and recursively calls itself until the base case of n = 0 is reached. At each recursive call, the current value of n is added to the sum of the previous values.
sumOfNaturalNumbers :: Integer -> Integer sumOfNaturalNumbers 0 = 0 sumOfNaturalNumbers n = n + sumOfNaturalNumbers (n - 1) main :: IO () main = do let n = 10 print (sumOfNaturalNumbers n)
In this example, the gcd' function takes in two integers x and y, and uses recursion to find their GCD. The base case for the recursion is when y is equal to 0, in which case the GCD is simply x. In all other cases, the function calls itself with the arguments y and x mod y, which calculates the remainder of x divided by y. This is done until the remainder is 0, at which point the function will return the GCD.
gcd' :: Int -> Int -> Int gcd' x y | y == 0 = x | otherwise = gcd' y (x `mod` y) main :: IO () main = do let x = 48 let y = 18 print (gcd' x y)
In this example, the reverseSentence function takes a string as input and uses recursion to reverse the order of the characters in the string. The base case of the recursion is when the input string is empty, in which case the function returns an empty string. In the recursive case, the function calls itself with the input string minus the first character, and then concatenates the first character of the input string to the end of the reversed string returned by the recursive call.
reverseSentence :: String -> String reverseSentence  =  reverseSentence (x:xs) = reverseSentence xs ++ [x] main :: IO () main = do let sentence = "Hello World!" print (reverseSentence sentence)
In Haskell, recursion allows to find concise and elegant solutions to problems. It is a way of defining a function with base and recursive cases. These functions can take any number of arguments in any form, perform any desired computation, and return the result after being called recursively.
- Related Articles
- How to create a simple Recursive Function in Golang?
- How to create a simple MySQL function?
- Haskell Program to create a function without argument but return a value
- Haskell Program to create a function with arguments and a return value
- Haskell Program to create a function without argument and without a return value
- Haskell Program to create a function with arguments but without a return value
- Haskell Program to Make a Simple Calculator Using switch...case
- C# Program to create a Simple Thread
- Golang Program to Create a Simple Class?
- Golang program to implement recursive anonymous function
- Haskell Program to Calculate simple interest and compound interest
- How to Create a Simple Program in C++?
- C Program to reverse a given number using Recursive function
- Haskell Program to create Case statement
- Haskell Program to pass a string to the function