Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Fibonacci-sequence/Harbour/fibonacci-sequence-1.harbour
+++ b/Task/Fibonacci-sequence/Harbour/fibonacci-sequence-1.harbour
@ -0,0 +1,3 @@
+#include "harbour.ch"
+Function fibb(a,b,n)
+return(if(--n>0,fibb(b,a+b,n),a))
--- a/Task/Fibonacci-sequence/Harbour/fibonacci-sequence-2.harbour
+++ b/Task/Fibonacci-sequence/Harbour/fibonacci-sequence-2.harbour
@ -0,0 +1,9 @@
+#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)