斐波纳契函数来自“The Book of R”

Question

需要进行哪些修改，以便函数返回序列而不重复数字1？

from memory_profiler import profile

而不是 1,1,2,3,4,8,13,21,34,55,89,144,233，现在休息......

返回 1,2,3,4,8,13,21,34,55,89,144,233，现在休息......

Answer 1

从cat中删除第一个号码：

myfib <- function() {
    fib.a <- 1
    fib.b <- 1
    cat(fib.b, ", ", sep="")
    repeat {
        temp <- fib.a + fib.b
        fib.a <- fib.b
        fib.b <- temp
        cat(fib.b, ", ", sep="")
        if(fib.b > 150) {
            cat("BREAK NOW...")
            break
        }
    }
}

或更改初始值：

myfib <- function() {
    fib.a <- 1
    fib.b <- 2
    cat(fib.a, ", ", fib.b, ", ", sep="")
    repeat {
        temp <- fib.a + fib.b
        fib.a <- fib.b
        fib.b <- temp
        cat(fib.b, ", ", sep="")
        if(fib.b > 150) {
            cat("BREAK NOW...")
            break
        }
    }
}