Initial data commit

Task/Identity-matrix/AppleScript/identity-matrix-2.applescript

@@ -0,0 +1,17 @@
+on indentityMatrix(n)
+    set digits to {}
+    set m to n - 1
+    repeat (n + m) times
+        set end of digits to 0
+    end repeat
+    set item n of digits to 1
+
+    set matrix to {}
+    repeat with i from n to 1 by -1
+        set end of matrix to items i thru (i + m) of digits
+    end repeat
+
+    return matrix
+end indentityMatrix
+
+return indentityMatrix(5)