19 lines
376 B
Text
19 lines
376 B
Text
#AutoIt Version: 3.2.10.0
|
|
$n0 = 0
|
|
$n1 = 1
|
|
$n = 10
|
|
MsgBox (0,"Recursive Fibonacci ", rec_febo($n0,$n1,$n))
|
|
Func rec_febo($r_0,$r_1,$R)
|
|
if $R<3 Then
|
|
if $R==2 Then
|
|
Return $r_1
|
|
ElseIf $R==1 Then
|
|
Return $r_0
|
|
ElseIf $R==0 Then
|
|
Return 0
|
|
EndIf
|
|
Return $R
|
|
Else
|
|
Return rec_febo($r_0,$r_1,$R-1) + rec_febo($r_0,$r_1,$R-2)
|
|
EndIf
|
|
EndFunc
|