2016 Update

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-11.pari

@@ -1,11 +1 @@
-fib(n)={
-  if(n<0,return((-1)^(n+1)*fib(n)));
-  my(a=0,b=1,t);
-  while(n,
-    t=a+b;
-    a=b;
-    b=t;
-    n--
-  );
-  a
-};
+apply(n->if(n<2,n,my(s=self());s(n-2)+s(n-1)), [1..10])

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-12.pari

@@ -1 +1,13 @@
-fib(n)=my(k=0);while(n--,k++;while(!issquare(5*k^2+4)&&!issquare(5*k^2-4),k++));k
+F=[];
+fib(n)={
+  if(n>#F,
+    F=concat(F, vector(n-#F));
+    F[n]=fib(n-1)+fib(n-2)
+  ,
+    if(n<2,
+      n
+    ,
+      if(F[n],F[n],F[n]=fib(n-1)+fib(n-2))
+    )
+  );
+}

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-13.pari

@@ -0,0 +1,11 @@
+fib(n)={
+  if(n<0,return((-1)^(n+1)*fib(n)));
+  my(a=0,b=1,t);
+  while(n,
+    t=a+b;
+    a=b;
+    b=t;
+    n--
+  );
+  a
+};

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-14.pari

@@ -0,0 +1,7 @@
+matantihadamard(n)={
+  matrix(n,n,i,j,
+    my(t=j-i+1);
+    if(t<1,t%2,t<3)
+  );
+}
+fib(n)=matdet(matantihadamard(n))

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-15.pari

@@ -0,0 +1,7 @@
+fib(n)=
+{
+  my(g=2^(n+1)-1);
+  sum(i=2^(n-1),2^n-1,
+    bitor(i,i<<1)==g
+  );
+}

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-16.pari

@@ -0,0 +1 @@
+fib(n)=my(k=0);while(n--,k++;while(!issquare(5*k^2+4)&&!issquare(5*k^2-4),k++));k

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-2.pari

@@ -1 +1 @@
-([1,1;1,0]^n)[1,2]
+fibo(n)=([1,1;1,0]^n)[1,2]

Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-9.pari

@@ -1,10 +1,6 @@
 fib(n)={
   if(n<2,
-    if(n<0,
-      (-1)^(n+1)*fib(n)
-    ,
-      n
-    )
+    n
   ,
     fib(n-1)+fib(n)
   )