13 lines
119 B
Text
13 lines
119 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
|