RosettaCodeData/Task/Identity-matrix/Perl-6/identity-matrix-2.pl6

sub identity-matrix($n) {
    my @id = [0 xx $n] xx $n;
    @id[$_][$_] = 1 for ^$n;
    @id;
}