18 lines
384 B
Fortran
18 lines
384 B
Fortran
program fibonaci_test
|
|
implicit none
|
|
|
|
print *, fibonaci(6)
|
|
contains
|
|
recursive function fibonaci(number) result(fibonaci_number)
|
|
integer, intent(in) :: number
|
|
integer :: fibonaci_number
|
|
|
|
if (number <= 2) then
|
|
fibonaci_number = 1
|
|
else
|
|
fibonaci_number = fibonaci(number - 1) + fibonaci(number - 2)
|
|
end if
|
|
print *, "result:", fibonaci_number
|
|
end function
|
|
end program
|