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

4 lines
77 B
Plaintext

#include "harbour.ch"
Function fibb(a,b,n)
return(if(--n>0,fibb(b,a+b,n),a))