Data update

Task/Matrix-exponentiation-operator/Chapel/matrix-exponentiation-operator-1.chapel

@@ -1,12 +0,0 @@
-proc **(a, e) {
-    // create result matrix of same dimensions
-    var r:[a.domain] a.eltType;
-    // and initialize to identity matrix
-    forall ij in r.domain do
-        r(ij) = if ij(1) == ij(2) then 1 else 0;
-
-    for 1..e do
-        r *= a;
-
-    return r;
-}

Task/Matrix-exponentiation-operator/Chapel/matrix-exponentiation-operator-2.chapel

@@ -1,11 +0,0 @@
-var m:[1..3, 1..3] int;
-m(1,1) = 1; m(1,2) = 2; m(1,3) = 0;
-m(2,1) = 0; m(2,2) = 3; m(2,3) = 1;
-m(3,1) = 1; m(3,2) = 0; m(3,3) = 0;
-
-config param n = 10;
-
-for i in 0..n do {
-    writeln("Order ", i);
-    writeln(m ** i, "\n");
-}