来自书"R的书"中的斐波那契函数.

本文介绍了来自书"R的书"中的斐波那契函数.的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

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

What modification is needed so function returns a sequence without the number 1 duplicated?

myfib<- function(){
        fib.a<-1
        fib.b<- 1
        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
                }
        }
}

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

instead of 1, 1, 2, 3, 4, 8, 13, 21, 34, 55, 89, 144, 233, BREAK NOW...

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

return 1, 2, 3, 4, 8, 13, 21, 34, 55, 89, 144, 233, BREAK NOW...

推荐答案

从您的 cat 删除第一个数字:

Remove the first number from your 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
        }
    }
}

这篇关于来自书"R的书"中的斐波那契函数.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！