9 lines
161 B
Text
9 lines
161 B
Text
#include "harbour.ch"
|
|
Function fibb(n)
|
|
local fnow:=0, fnext:=1, tempf
|
|
while (--n>0)
|
|
tempf:=fnow+fnext
|
|
fnow:=fnext
|
|
fnext:=tempf
|
|
end while
|
|
return(fnext)
|