Data update

Task/Identity-matrix/Kotlin/identity-matrix.kotlin

@@ -1,17 +1,16 @@
-// version 1.0.6
-
-fun main(args: Array<String>) {
+fun main() {
     print("Enter size of matrix : ")
-    val n = readLine()!!.toInt()
+    val n = readln().toInt()
     println()
-    val identity = Array(n) { IntArray(n) } // create n x n matrix of integers
-
-    // enter 1s in diagonal elements
-    for(i in 0 until n) identity[i][i] = 1
+    val identity = Array(n) { i ->
+        IntArray(n) { j ->
+            if (i == j) 1 else 0
+        }
+    }
 
     // print identity matrix if n <= 40
     if (n <= 40)
-        for (i in 0 until n) println(identity[i].joinToString(" "))
+        for (row in identity) println(row.joinToString(" "))
     else
         println("Matrix is too big to display on 80 column console")
 }

Task/Identity-matrix/PascalABC.NET/identity-matrix.pas

@@ -0,0 +1,5 @@
+begin
+  var n := ReadInteger;
+  var matrix: array [,] of integer := MatrGen(n,n,(i,j) -> i = j ? 1 : 0);
+  matrix.Println
+end.

Task/Identity-matrix/Uiua/identity-matrix.uiua

@@ -0,0 +1,2 @@
+IdMatrix ← ⊞=.⇡
+IdMatrix 7