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

sub identity-matrix($n) {
    [1, |(0 xx $n-1)], *.rotate(-1) ... *[*-1]
}