langs a-z

Task/Fibonacci-sequence/Seed7/fibonacci-sequence-1.seed7

@@ -0,0 +1,10 @@
+const func integer: fib (in integer: number) is func
+  result
+    var integer: result is 1;
+  begin
+    if number > 2 then
+      result := fib(pred(number)) + fib(number - 2);
+    elsif number = 0 then
+      result := 0;
+    end if;
+  end func;

Task/Fibonacci-sequence/Seed7/fibonacci-sequence-2.seed7

@@ -0,0 +1,14 @@
+const func bigInteger: fib (in integer: number) is func
+  result
+    var bigInteger: result is 1_;
+  local
+    var integer: i is 0;
+    var bigInteger: a is 0_;
+    var bigInteger: c is 0_;
+  begin
+    for i range 1 to pred(number) do
+      c := a;
+      a := result;
+      result +:= c;
+    end for;
+  end func;