RosettaCodeData/Task/Fibonacci-sequence/Harbour/fibonacci-sequence-2.harbour

10 lines
161 B
Plaintext

#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)