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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/100-prisoners/Maple/100-prisoners-1.maple Normal file
View file

@ -0,0 +1,2 @@
p:=simplify(1-product(1-1/(2*n-k),k=0..n-1));
# p=1/2

5
Task/100-prisoners/Maple/100-prisoners-2.maple Normal file
View file

@ -0,0 +1,5 @@
p^100;
evalf(%);
# 1/1267650600228229401496703205376
# 7.888609052e-31

5
Task/100-prisoners/Maple/100-prisoners-3.maple Normal file
View file

@ -0,0 +1,5 @@
a:=[seq(max(GroupTheory[PermCycleType](Perm(Statistics[Shuffle]([$1..100])))),i=1..100000)]:
nops(select(n->n<=50,a))/nops(a);
evalf(%);
# 31239/100000
# 0.3123900000

5
Task/100-prisoners/Maple/100-prisoners-4.maple Normal file
View file

@ -0,0 +1,5 @@
1-(harmonic(100)-harmonic(50));
evalf(%);
# 21740752665556690246055199895649405434183/69720375229712477164533808935312303556800
# 0.3118278207