RosettaCodeData/Task/Element-wise-operations/PL-I/element-wise-operations.pli

10 lines
184 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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;