Identity matrix: Difference between revisions
→{{header|AppleScript}}: Added simple alternative.
(→{{header|AppleScript}}: Added simple alternative.) |
|||
Line 518:
[0, 0, 0, 1, 0]
[0, 0, 0, 0, 1]</pre>
----
===Simple alternative===
<lang applescript>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)</lang>
{{output}}
<lang applescript>{{1, 0, 0, 0, 0}, {0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}}</lang>
=={{header|Applesoft BASIC}}==
| |||