答案我不加注释，自己再琢磨一下代码的作用。以后作业要自己做

谢谢啦

facF<-function(n){
  if (n==1) return(1)
  if (n==2) return(2)
  else return(n * facF(n-1))
}


facS<-function(m){
  temp<-NULL
  for (i in 1:m) temp[i]<-facF(i)
  return(sum(temp))
}

facS(5)