有没有更简便的算法？

derwille

a1=1;a2=2;a3=a2+a1;a4=a3+a2;依次类推a[[i]]=a[[i-1]]+a[[i-2]],求a[[1]],....a[[100]]的值；
比如有
a=Table[0,{100}];a[[1]]=1;a[[2]]=2;Do[a[[i]]=a[[i-1]]+a[[i-2]],{i,3,100}]；
但是有些时候预先定义a很困难，根据一些条件限制，我不知道要算到a[[100]]或是a[[10000]],有没有什么方法可以无需预先定义a，算到哪就是哪，无需预先空出内存来，比如用什么上标或是下标或是什么ai来表示，这样就不用预先设定一个a=Table[0,{100}];

liweicai990

Table[Fibonacci[n], {n, 2, 101, 1}]

chyanog

1. Module[{a = 1, b = 1, t}, Table[t = a + b; b = a; a = t, {10 - 2}]]
   
2. Module[{a = 1, b = 1, t}, Do[t = a + b; b = a; a = t, {10 - 2}]; t]
   
3. 
   
4. Module[{a = 1, b = 1, t}, Table[{a, b} = {b, a + b}, {10 - 2}]][[;; ,  2]]
   
5. Module[{a = 1, b = 1, t}, Do[{a, b} = {b, a + b}, {10 - 2}]; b]
   
6. Nest[#~Append~Tr@#[[-2 ;;]] &, {1, 1}, 8]
   
7. 
   
8. f1[n_] := Nest[{#2, # + #2} & @@ # &, {1, 1}, n - 2][[2]]
   
9. f1[10]

复制代码