Create a gist now

Instantly share code, notes, and snippets.

@timyates /fac.R Secret
Created Oct 27, 2015

What would you like to do?
library(gmp)
fib <- function(n) {
res <- c(as.bigz(1), as.bigz(1), numeric(n-2))
for (i in 3:length(res))
res[i] <- res[i-1] + res[i-2]
return(res)
}
res <- fib(1447)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment