# Re: [R] Fibonacci

From: Erich Neuwirth <erich.neuwirth_at_univie.ac.at>
Date: Wed, 20 Apr 2011 12:45:19 +0200

The "easy" solution to compute the Fibonacci numbers is

fibo <- function(n,a=1,b=1){
if (n == 1) return(a)
if (n == 2) return(b)
return(fibo(n-1,b,a+b))
}

It avoids double recursion.
It is, however, not as resource efficient as a loop since R does not do tail recursion elimination.

On Apr 20, 2011, at 11:42 AM, Georgina Imberger wrote:

> Hi!
>
> I am trying to work out the code to get a Fibonacci sequence, using the
> while() loop and only one variable. And I can't figure it out.
>
> Fibonacci<-c(1,1)
> while (max(Fibonacci)<500){
> Fibonacci<-c(Fibonacci, (max(Fibonacci) + ?(Fibanacci)))
> }
>
>
> How can I tell R to take the value one before the max value? (Without
> defining another variable)
>
> (Probably super easy... I am a beginner...)
>
> Thanks,
> Georgie
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help_at_r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

R-help_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Wed 20 Apr 2011 - 10:47:40 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 20 Apr 2011 - 11:10:31 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.