R 代码积累不定期更新 1.阶乘.递归.reduce.sprintf #NO.1 # 阶乘函数 fact <- function(n){ if(n==0) return(1) #基例在这 else return(n*fact(n-1)) } #1+2!+3!+...+20!的和 #测试 Reduce('+', lapply(1:3,fact)) 结果是9 Reduce('+', lapply(1:20,fact)) #NO.2 #判断101-200之间有多少个素数,并输出所有素数 is.prim…