Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 129 Bytes
#!/bin/env perl6
sub MAIN(Int $n where * > 0) {
my @a = [0 xx $n] xx $n;
@a[$_][$_] = 1 for 0 .. $n - 1;
@a.say;
}
You can’t perform that action at this time.