Anonymous user
Galton box animation: Difference between revisions
→{{header|Perl 6}}: replace overly defensive code for list-of-list clone with code several times faster, and use .chrs instead of >>.chr.join
m (Only calling initialSeed one time now.) |
(→{{header|Perl 6}}: replace overly defensive code for list-of-list clone with code several times faster, and use .chrs instead of >>.chr.join) |
||
Line 1,527:
say "" for ^10;
my @output-lines = map { [
# place the coins
for @positions.kv -> $line, $pos {
Line 1,535:
# output the board with its coins
for @output-lines -> @line {
say @line
}
| |||