aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-14.pari
View file

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

8
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-15.pari
View file

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

8
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-16.pari
View file

@ -1 +1,7 @@
fib(n)=my(k=0);while(n--,k++;while(!issquare(5*k^2+4)&&!issquare(5*k^2-4),k++));k
matantihadamard(n)={
matrix(n,n,i,j,
my(t=j-i+1);
if(t<1,t%2,t<3)
);
}
fib(n)=matdet(matantihadamard(n))

7
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-17.pari Normal file
View file

@ -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
);
}

1
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-18.pari Normal file
View file

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