Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Fibonacci-sequence/Pascal/fibonacci-sequence-2.pascal
+++ b/Task/Fibonacci-sequence/Pascal/fibonacci-sequence-2.pascal
@ -1,14 +1,8 @@
 function fib(n: integer): integer;
- var
-  f0, f1, f2, k: integer;
 begin
-  f0 := 0;
-  f1 := 1;
-  for k := 2 to n do
-   begin
-    f2:= f0 + f1;
-    f0 := f1;
-    f1 := f2;
-   end;
-  fib := f2;
+  if (n = 0) or (n = 1)
+   then
+    fib := n
+   else
+    fib := fib(n-1) + fib(n-2)
 end;