Initial data commit

Task/Fibonacci-sequence/Sather/fibonacci-sequence.sa

@@ -0,0 +1,34 @@
+class MAIN is
+
+  -- RECURSIVE --
+  fibo(n :INTI):INTI
+    pre n >= 0
+  is
+    if n < 2.inti then return n; end;
+    return fibo(n - 2.inti) + fibo(n - 1.inti);
+  end;
+
+  -- ITERATIVE --
+  fibo_iter(n :INTI):INTI
+    pre n >= 0
+  is
+    n3w :INTI;
+
+    if n < 2.inti then return n; end;
+    last ::= 0.inti; this ::= 1.inti;
+    loop (n - 1.inti).times!;
+      n3w := last + this;
+      last := this;
+      this := n3w;
+    end;
+    return this;
+  end;
+
+  main is
+    loop i ::= 0.upto!(16);
+      #OUT + fibo(i.inti) + " ";
+      #OUT + fibo_iter(i.inti) + "\n";
+    end;
+  end;
+
+end;