Data update

Task/Identity-matrix/Amazing-Hopper/identity-matrix.hopper

@@ -0,0 +1,19 @@
+#include <jambo.h>
+
+Main
+    Dim( 10,10 ) as eyes 'UMatrix'
+
+    Printnl ' "UNIT MATRIX:\n", UMatrix '
+
+    /* Classical method */
+
+    Dim (10,10) as zeros (ZM)
+    i=1
+    Iterator ( ++i, #(i<=10), #( ZM[i,i]=1 ) )
+    Printnl ' "UNIT MATRIX:\n", ZM '
+
+    /* unit matrix non square*/
+    Dim ( 5,8 ) as eyes 'rare unit matrix'
+
+    Printnl ' "RARE UNIT MATRIX:\n", rare unit matrix '
+End

Task/Identity-matrix/EasyLang/identity-matrix.easy

@@ -0,0 +1,9 @@
+proc idmat lng . mat[][] .
+   len mat[][] lng
+   for i to lng
+      len mat[i][] lng
+      mat[i][i] = 1
+   .
+.
+idmat 4 m[][]
+print m[][]