;《Windows組合語言程式設計教程》p170習題7:
;用遞迴子程式顯示Fibonacci數列,Fibonacci數列Fn定義為:F0=0,F1=1,F2=1,Fn=Fn-2+Fn-3(n>=3)。
;2006-12-15 高玉涵
;程式不考慮處理負數與溢出。
.386
.model flat,stdcall
option casemap:none
includelib /masm32/lib/msvcrt.lib
printf PROTO C :dword, :vararg
scanf PROTO C :dword, :vararg
.data
dVar dword 6
szMsg1 byte '請輸入一個大於2的整數:', 0
szMsg3 byte 'F%d = %d', 0ah, 0
szMsg4 byte 'ebx=%d', 0ah, 0
szInputFmt byte '%d', 0
.code
Fibonacci proc C n:dword
local dret:dword ;存放子程式的傳回值。
local dvar:dword ;存放n值(中間計算)。
cmp n, 2
jle exitrecurse ;n<=2
push n
pop dvar ;dvar=n
dec dvar ;n-1
invoke Fibonacci, dvar ;Fibonacci(n-1)
mov dret, eax ;儲存上次調用的傳回值。
dec dvar ;相當於n-2
invoke Fibonacci, dvar ;Fibonacci(n-2)
add eax, dret ;eax子程式傳回值,eax=n-1+n-2。
ret
exitrecurse:
mov eax, 1 ;儲存子程式傳回值。
ret
Fibonacci endp
start proc
invoke printf, offset szMsg1 ;提示。
invoke scanf, offset szInputFmt, offset dVar ;擷取使用者輸入的值。
cmp dVar, 2
jle exitrecurse ;dVar<=2,退出。
mov ecx, dVar
lop:
push ecx ;儲存ecx值。
invoke Fibonacci, ecx
invoke printf, offset szMsg3, ecx, eax
pop ecx ;還原ecx值。
loop lop
exitrecurse:
ret
start endp
end start
程式運行結果:
請輸入一個大於2的整數:7
F7 = 13
F6 = 8
F5 = 5
F4 = 3
F3 = 2
F2 = 1
F1 = 1
註:
程式中有一個陷阱:它使用遞迴步驟計算Fibonacci(n-1)和Fibonacci(n-2),但是,在計算Fibonacci(n-1)時也將計算Fibonacci(n-2),這個額外的計算代價有多大呢?
答案是:它的代價遠遠不止一個冗餘計算:每個遞迴調用都觸發另外兩個遞迴調用,而這兩個調用的任何一個還將觸發兩個遞迴調用,再接下去的調用也是如此。這樣,冗餘計算數量增長得非常快。例如:在遞迴計算Fibonacci(10)時,Fibonacci(3)的值被計算了21次。但是,在遞迴計算Fibonacci(30)時,Fibonacci(3)的值被計算了317,811次。當然,這317,811次計算所產生的結果是完全一樣的,除了其中之一外,其餘的純屬浪費。這個額外的開銷真是相當恐怖!
以上原句摘自《C和指標》(人民郵電出版社-Kenneth A.Reek著 除波 譯)p133頁。