Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
40 lines (24 sloc) 1.01 KB
module Y2016.M06.D20.Exercise where
{--
SO! My daughter is working on solving quadratic equations, so, GUESS WHAT WE'RE
DOING TODAY?
Just guess.
So, the standard form of the quadratic equation is:
ax^2 + bx + c = 0
And is solved with:
x = (-b +/- sqrt (b^2 - 4ac)) / 2a
BECAUSE SCIENCE!
Now we have complex number problems here and multiple solutions problems here,
but, eh! That's why you're coders. If we had no problems, you'd be painting
still lifes of daisies or eggplants.
So, you're welcome!
GIVEN: a set of quadratic equations, represent them in standard form (I guess)
(I mean, if that helps you), and then solve each equation for all solutions.
--}
data QuadraticEq = SomeWeirdFormYouDefine
solver :: QuadraticEq -> [Float]
solver = undefined
-- the equations are given as (a, b, c) in of the standard quadratic equations
equs :: [(Float, Float, Float)]
equs = [(6,7,-3), (10, -1, -2), (4,3,-27), (15,-26,-21), (21,-12,1), (8,25,13)]
-- these equations are from http://www.mathopolis.com/ for quadratic equations
You can’t perform that action at this time.