8 lines
94 B
Text
8 lines
94 B
Text
|
program fib
|
||
|
|
args n
|
||
|
|
clear
|
||
|
|
qui set obs `n'
|
||
|
|
qui gen a=1
|
||
|
|
qui replace a=a[_n-1]+a[_n-2] in 3/l
|
||
|
|
end
|