运行结果

代码
step1 <- function(n){
s=1 t=-1 a=list() for (i in 2:n) {
s=c(s,i,t) t=-rev(s) a[i]=list(s) } a[1]=list(1) names(a)=paste('S',1:n,sep='') print(a) } diguisuanfa<- step1(4) diguisuanfa$S3[2]
讯享网
R语言实现递归(1 2 -1 3 1 -2 -1)运行结果 代码 step1 lt function n s 1 t 1 a list for i in 2 n s c s i t t rev s a i list s a 1
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容,请联系我们,一经查实,本站将立刻删除。
如需转载请保留出处:https://51itzy.com/kjqy/19005.html