Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 11 lines (9 sloc) 194 Bytes
#!/usr/bin/env perl6
use v6;
sub MAIN(UInt:D $size where *1) {
for ^$size -> $row {
my @row = (^$size).map: { 0 };
@row[$row] = 1;
say @row.join(" ");
}
}
You can’t perform that action at this time.