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

4 lines
77 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
#include "harbour.ch"
Function fibb(a,b,n)
return(if(--n>0,fibb(b,a+b,n),a))