f <- function(n) {
  if (终止条件) {
    return(基本值)
  } else {
    return(当前处理 * f(递减参数))
  }
}
 

这个需要包含源头