diff options
| -rwxr-xr-x | challenge-126/perlboy1967/perl/ch-2.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-126/perlboy1967/perl/ch-2.pl b/challenge-126/perlboy1967/perl/ch-2.pl index 23c2a52037..9f5cacc7b5 100755 --- a/challenge-126/perlboy1967/perl/ch-2.pl +++ b/challenge-126/perlboy1967/perl/ch-2.pl @@ -29,8 +29,9 @@ printBoard(@B); sub generateBoard($$\@) { my ($w,$h,$arB) = @_; - my @c = qw(X . . . .); # 1 in 5 chance of placing a bomb - + my $bRatio = 5; # 1 in 5 chance of placing a bomb + my @c = ('X', map '.', 1..$bRatio-1); + foreach my $y (1 .. $h) { foreach my $x (1 .. $w) { $arB->[$y][$x] = $c[int rand(scalar @c)]; |