10 lines
161 B
Text
10 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)
|