斐波那契数列代码

lixiangrong

i <- 2
  x <- 1:2
  while (x[i] < 1000) {
    x[i+1] <- x[i-1]+x[i]
    i <- i+1
  }
  x <- x[-i]
  x