Identity matrix: Difference between revisions
→{{header|Perl}}: simpler and shorter
(Add Red) |
SqrtNegInf (talk | contribs) (→{{header|Perl}}: simpler and shorter) |
||
Line 2,623:
=={{header|Perl}}==
<lang perl>
use warnings;
use feature 'say';
[ map { ($_ == $i) - 0 } 1 .. $n ]▼
}
say join ' ', @$_ for identity_matrix $_;
}</lang>▼
▲ my @id = identity_matrix $_;
▲ print "$_:\n";
▲</lang>
{{out}}
<pre>4:
Line 2,662 ⟶ 2,656:
0 0 0 1 0 0
0 0 0 0 1 0
0 0 0 0 0 1
=={{header|Phix}}==
| |||