Random Latin squares: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: tidy) |
||
| Line 72: | Line 72: | ||
sub random ( @ls, :$size = 5 ) { |
sub random ( @ls, :$size = 5 ) { |
||
for 2 ..^ $size -> $i { |
for 2 ..^ $size -> $i { |
||
@ls[$i] = @ls[0].clone; |
@ls[$i] = @ls[0].clone; |
||
| Line 85: | Line 86: | ||
@ls.deepmap: { $_ = @symbols[$_] }; |
@ls.deepmap: { $_ = @symbols[$_] }; |
||
@ls |
|||
} |
} |
||