フィボナッチ数列（またか）

1,1,2,3から始まるフィボナッチ数列の100桁目の数字は何か

n = 30
fib = integer(n)
fib[1] = fib[2] = 1
for (i in 3:n) {
  fib[i] = fib[i-1]+fib[i-2]
}
ans = paste(fib, collapse="")
if (nchar(ans) >= 100) {
  substring(ans, 100, 100)
}