Another solution:
while (Fibonacci[1] < 500) Fibonacci <- c(sum(Fibonacci[c(1,2)]),
Fibonacci)
While this adds the sum before the existing values, the length or tail
function or avoided, but even with reordering, its faster
(Fibonacci[length(Fibonacci):1])
Best regards
Bart
--
View this message in context: http://r.789695.n4.nabble.com/Fibonacci-tp3462636p3463050.html
Sent from the R help mailing list archive at Nabble.com.