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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-14.parigp
View file

@ -1 +1 @@
fib(n)=n--;polchebyshev(n,2,I/2)*I^n;
fib(n)=real(2/sqrt(5)/I^n*sinh(n*log(I*(1+sqrt(5))/2)))\/1;

2
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-15.parigp
View file

@ -1 +1 @@
fib(n)=abs(polchebyshev(n-1,2,I/2));
fib(n)=n--;polchebyshev(n,2,I/2)*I^n;

8
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-16.parigp
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)=abs(polchebyshev(n-1,2,I/2));

10
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-17.parigp
View file

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

8
Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-18.parigp
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
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-19.parigp 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