- not including any extraneous signs
-not showing the constant term
for the above example, the final line would be:
The value of 1.0 x^3 - 2.0 x^2 + 10.0 evaluated at -1.0 is 7.0
how can I do this??? i have no idea now….
here is my code:
evalpoly = do putStr "What is the degree of polynomial: "
degree <- getLine
coeffs <- (funcOfCoeff ((read degree::Int)+1) [] )
putStr "What value do you want to evaluate at: "
value <- getLine
putStr "The value of the polynomial is: "
putStrLn (show (getResult (coeffs) (read value :: Float) ))
--function loop to get coefficient--
funcOfCoeff 0 coeffs = do --to check the degree of 0
return coeffs --return list of coefficient
funcOfCoeff degree coeffs = do
putStr ("What is the x^" ++ show(degree-1))
putStr " coefficient: "
coeff <- getLine
loop <- funcOfCoeff (degree-1) ((read coeff :: Float) : coeffs)
return loop
getResult (coeffs) x = sum(map(\(a,b) -> a*x^b).zip coeffs.iterate (+1)$0)
this is my output so far:
> evalpoly
What is the degree of the polynomial: 3
What is the x^3 coefficient: 1.0
What is the x^2 coefficient: - 2.0
What is the x^1 coefficient: 0
What is the x^0 coefficient: 10.0
What value do you want to evaluate at: -1.0
The value of the polynomial is 7.0