面试题：Fortran递归函数的基本实现

Question

请编写一个Fortran递归函数，用于计算整数n的阶乘。要求清晰展示递归的终止条件和递归调用逻辑。

Answer 1

function factorial(n) result(fac)
    implicit none
    integer, intent(in) :: n
    integer :: fac
    if (n == 0 .or. n == 1) then
        fac = 1 ! 递归终止条件：0和1的阶乘为1
    else
        fac = n * factorial(n - 1) ! 递归调用逻辑：n的阶乘等于n乘以(n - 1)的阶乘
    end if
end function factorial