Kvadratic - Elixir
123456789101112131415161718192021222324252627
defmodule Kvadra do
def kvadratic(a,b,c) do
disc = discrim(a,b,c)
case disc do
_ when disc > 0 -> two_roots(a,b,disc)
0 -> one_root(a,b)
_ -> "Diskriminant je zaportny - zadne realne koreny."
end
end
defp discrim(a,b,c), do: b * b - 4 * a * c
defp one_root(a, b), do: {-b / (2 * a)}
defp two_roots(a,b,disc) do
root1 = (-b + :math.sqrt(disc)) / (2 * a)
root2 = (-b - :math.sqrt(disc)) / (2 * a)
{root1, root2}
end
end
IO.inspect(Kvadra.kvadratic(2,6,-20))
Elixir
INFO