12 lines
121 B
Text
12 lines
121 B
Text
program fib
|
|
args n
|
|
clear
|
|
qui set obs `n'
|
|
qui gen a=.
|
|
dyngen {
|
|
update a=a[_n-1]+a[_n-2], missval(1)
|
|
}
|
|
end
|
|
|
|
fib 10
|
|
list
|