R语言实现递归（1 2 -1 3 1 -2 -1）

运行结果

代码

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]