Napisałem następujący program na znajdowanie pierwiastków trójmianu:
roots :: Float -> Float -> Float -> (Float, Float)
roots a b c
| discriminant > 0 = ((-b + (sqrt discriminant))/(2*a), (-b - (sqrt discriminant))/(2*a)
| otherwise = error "brak"
where
discriminant = b^2 - 4*a*c
dlaczego wypluwa mi parse error on input `|' ??
Tracę już powoli cierpliwość do tego języka, czepia się o największe gó**a. Nie jestem w stanie napisać prostego ifa bo coś mu wiecznie nie pasuje.
Wiem, że wcięcia mają tutaj kluczowe znaczenie, ale ja już próbowałem chyba wszystkich możliwości i dalej nic.