langs a-z

Task/Fibonacci-sequence/Pike/fibonacci-sequence-1.pike

@@ -0,0 +1,15 @@
+int
+fibIter(int n) {
+    int fibPrev, fib, i;
+    if (n < 2) {
+        return 1;
+    }
+    fibPrev = 0;
+    fib = 1;
+    for (i = 1; i < n; i++) {
+        int oldFib = fib;
+        fib += fibPrev;
+        fibPrev = oldFib;
+    }
+    return fib;
+}

Task/Fibonacci-sequence/Pike/fibonacci-sequence-2.pike

@@ -0,0 +1,7 @@
+int
+fibRec(int n) {
+    if (n < 2) {
+        return(1);
+    }
+    return( fib(n-2) + fib(n-1) );
+}