то отделни дефиниции.
--Искаме те да бъдат преди "общия случай" на функцията по същата логика,
--по която правим първо проверките в рекурсивната функция - нов е само синтаксиса.

fib'' :: (Integral a) => a -> a
fib'' 0 = 0
fib'' 1 = 1
fib'' n = fib'' (n-1) + fib'' (n-2)


--Task 3

--Функция, която брои колко корена има квадратно уравнение по 
fib :: (Integral a) => a -> a
fib n = if (n < 2)
        then n
        else (fib (n-1)) + (fib (n-2))
fib n = if (n < 2)
        then n
        else (fib (n-1)) + (fib (n-2))