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
|