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

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Element-wise-operations/Mathematica/element-wise-operations.mathematica → Task/Element-wise-operations/Mathematica/element-wise-operations.math
View file

3
Task/Element-wise-operations/PARI-GP/element-wise-operations-1.pari Normal file
View file

@ -0,0 +1,3 @@
multMM(A,B)=matrix(#A[,1],#A,i,j,A[i,j]*B[i,j]);
divMM(A,B)=matrix(#A[,1],#A,i,j,A[i,j]/B[i,j]);
powMM(A,B)=matrix(#A[,1],#A,i,j,A[i,j]^B[i,j]);

3
Task/Element-wise-operations/PARI-GP/element-wise-operations-2.pari Normal file
View file

@ -0,0 +1,3 @@
addMs(A,s)=A+matrix(#A[,1],#A,i,j,s);
subMs(A,s)=A-matrix(#A[,1],#A,i,j,s);
powMs(A,s)=matrix(#A[,1],#A,i,j,A[i,j]^s);

9
Task/Element-wise-operations/PL-I/element-wise-operations.pli Normal file
View file

@ -0,0 +1,9 @@
declare (matrix(3,3), vector(3), scalar) fixed;
declare (m(3,3), v(3) fixed;
m = scalar * matrix;
m = vector * matrix;
m = matrix * matrix;
v = scalar * vector;
v = vector * vector;

22
Task/Element-wise-operations/Perl-6/element-wise-operations.pl6 Normal file
View file

@ -0,0 +1,22 @@
my @a =
[1,2,3],
[4,5,6],
[7,8,9];
sub msay(@x) {
.perl.say for @x;
say '';
}
msay @a «+» @a;
msay @a «-» @a;
msay @a «*» @a;
msay @a «/» @a;
msay @a «+» [1,2,3];
msay @a «-» [1,2,3];
msay @a «*» [1,2,3];
msay @a «/» [1,2,3];
msay @a «+» 2;
msay @a «-» 2;
msay @a «*» 2;
msay @a «/» 2;