2016 Update

Task/Fibonacci-sequence/SAS/fibonacci-sequence-1.sas

@@ -0,0 +1,11 @@
+data fib;
+    a=0;
+    b=1;
+    do n=0 to 20;
+       f=a;
+       output;
+       a=b;
+       b=f+a;
+    end;
+    keep n f;
+run;

Task/Fibonacci-sequence/SAS/fibonacci-sequence-2.sas

@@ -0,0 +1,14 @@
+options cmplib=work.f;
+
+proc fcmp outlib=work.f.p;
+    function fib(n);
+    if n = 0 or n = 1
+        then return(1);
+        else return(fib(n - 2) + fib(n - 1));
+    endsub;
+run;
+
+data _null_;
+    x = fib(5);
+    put 'fib(5) = ' x;
+run;

Task/Fibonacci-sequence/SAS/fibonacci-sequence.sas

@@ -1,12 +0,0 @@
-/* building a table with fibonacci sequence */
-data fib;
-a=0;
-b=1;
-do n=0 to 20;
-   f=a;
-   output;
-   a=b;
-   b=f+a;
-end;
-keep n f;
-run;