мой препод сказал, что невозможно решить квадратное уравнение с помощью линейного алгоритма (то есть без циклов и условий).
solveQdr :: (Float,Float,Float) -> (Float,Float)
solveQdr = \ (a,b,c) -> if a == 0 then error "not quadratic"
else let d = b^2 - 4*a*c in
if d < 0 then error "no real solutions"
else
((- b + sqrt d) / 2*a,
(- b - sqrt d) / 2*a)
Я ж говорю - чисто программерская проверка.
а то деление на ноль
мой препод сказал, что невозможно ... , без условий
Около двух дней пытался что-то придумать
В вашем решении на хаскеле 2 условия минимум.
if a == 0 then error "not quadratic"if d < 0 then error "no real solutions"