Initial data commit

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

@@ -0,0 +1,12 @@
+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

@@ -0,0 +1,11 @@
+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");
+}