Calculate FACTORIAL of 12 using recursion

fact <- function (x){
  if (x == 1)
    return (1)
  return (fact(x-1) * x) 
}

x = 12
y <- fact(x)
print (y)

## [1] 479001600

The value of the factorial of 12 is 4.79001610^{8}.