Quante soluzioni?
|
1 2 3 4 5 6 |
numSoluzioni a b c | disc > 0 = 2 | disc == 0 = 1 | otherwise = 0 where disc = b^2-4*a*c |
Le soluzioni?
|
1 |
solEquazione2 a b c = ((-b-sqrt(b^2-4*a*c))/(2*a),(-b+sqrt(b^2-4*a*c))/(2*a)) |
Con un’espressione locale where
|
1 2 3 |
solEquazione2 a b c = ((-b-d)/(2*a),(-b+d)/(2*a)) where d = sqrt(b^2-4*a*c) |
Con un’espressione locale let
|
1 2 3 4 5 |
solEquazione2 a b c = let d = sqrt(b^2-4*a*c) in ((-b-d)/(2*a),(-b+d)/(2*a)) |
|
1 2 3 4 5 6 |
solEquazione2 a b c = let d = sqrt(b^2-4*a*c) a_2 = 2*a in ((-b-d)/a_2,(-b+d)/a_2) |
…