In Haskell: the following function rangeProduct returns 0 if the second argument is smaller than the first. Otherwise, it returns the product of the range between two numbers, ex:

rangeProduct 3 5 --> 60 (because 3*4*5 = 60)

Here is the code for rangeProduct:

rangeProduct :: (Integral a) => a -> a ->

rangeProduct x y

|x > y = 0

|otherwise = product[x..y]

Use the function rangeProduct to code a version of the factorial function.