please use Haskell to answer this

reference

Simon Thompson, Haskell: The Craft of Functional Programming, 3rd Edition: Pearson; 3rd edition (June 16 2011).

.24 The formula for the roots of a quadratic is 2abb24ac Write definitions of the functions smallerRoot, largerRoot :: Float Float Float Float which return the smaller and larger real roots of the quadratic. In the case that the equation has no real roots or has all values as roots you should return zero as the result of each of the functions