Anonymous user
Fibonacci sequence: Difference between revisions
→{{header|Fortran}}
Line 163:
=={{header|Fortran}}==
===Recursive===
In ISO Fortran 90 or later, use
recursive function
integer, intent(in) :: n
integer :: fib
select case (n)
case (:0); fib = 0
case (1); fib = 1
case default; fib =
end select
end function
===Iterative===
In ISO Fortran 90 or later:
function
integer, intent(
integer, parameter :: fib0 = 0, fib1 = 1
integer ::
select case (n)
case (:0);
case (1);
case default
back1 = fib0
do i = 2, n
back2 = back1
back1 =
end do
end select
end function
=={{header|Haskell}}==
| |||