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

5
Task/Long-multiplication/Mathematica/long-multiplication-1.math Normal file
View file

@ -0,0 +1,5 @@
LongMultiplication[a_,b_]:=Module[{d1,d2},
d1=IntegerDigits[a]//Reverse;
d2=IntegerDigits[b]//Reverse;
Sum[d1[[i]]d2[[j]]*10^(i+j-2),{i,1,Length[d1]},{j,1,Length[d2]}]
]

3
Task/Long-multiplication/Mathematica/long-multiplication-2.math Normal file
View file

@ -0,0 +1,3 @@
n1 = 2^64;
n2 = 2^64;
LongMultiplication[n1, n2]

1
Task/Long-multiplication/Mathematica/long-multiplication-3.math Normal file
View file

@ -0,0 +1 @@
340282366920938463463374607431768211456

5
Task/Long-multiplication/Mathematica/long-multiplication-4.math Normal file
View file

@ -0,0 +1,5 @@
n1=2^8000;
n2=2^8000;
Timing[LongMultiplication[n1,n2]][[1]]
Timing[n1 n2][[1]]
Floor[%%/%]

3
Task/Long-multiplication/Mathematica/long-multiplication-5.math Normal file
View file

@ -0,0 +1,3 @@
72.9686
7.*10^-6
10424088