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