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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Long-multiplication/Mathematica/long-multiplication-1.mathematica 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.mathematica 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.mathematica Normal file
View file

@ -0,0 +1 @@
340282366920938463463374607431768211456

5
Task/Long-multiplication/Mathematica/long-multiplication-4.mathematica 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.mathematica Normal file
View file

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