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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-1.math Normal file
View file

@ -0,0 +1,26 @@
4/16
3/8
8/4
4Pi/2
16!/10!
Sqrt[9/16]
Sqrt[3/4]
(23/12)^5
2 + 1/(1 + 1/(3 + 1/4))
1/2+1/3+1/5
8/Pi+Pi/8 //Together
13/17 + 7/31
Sum[1/n,{n,1,100}] (*summation of 1/1 + 1/2 + 1/3 + 1/4+ .........+ 1/99 + 1/100*)
1/2-1/3
a=1/3;a+=1/7
1/4==2/8
1/4>3/8
Pi/E >23/20
1/3!=123/370
Sin[3]/Sin[2]>3/20
Numerator[6/9]
Denominator[6/9]

3
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-2.math Normal file
View file

@ -0,0 +1,3 @@
c/(2 c)
(b^2 - c^2)/(b - c) // Cancel
1/2 + b/c // Together

3
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-3.math Normal file
View file

@ -0,0 +1,3 @@
1/2
b+c
(2 b+c) / (2 c)

1
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-4.math Normal file
View file

@ -0,0 +1 @@
1+2*{1,2,3}^3

1
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-5.math Normal file
View file

@ -0,0 +1 @@
{3, 17, 55}

4
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-6.math Normal file
View file

@ -0,0 +1,4 @@
found={};
CheckPerfect[num_Integer]:=If[Total[1/Divisors[num]]==2,AppendTo[found,num]];
Do[CheckPerfect[i],{i,1,2^25}];
found

1
Task/Arithmetic-Rational/Mathematica/arithmetic-rational-7.math Normal file
View file

@ -0,0 +1 @@
{6, 28, 496, 8128, 33550336}