From dfdcc6e2e49d14ec16c4f55ed4e9d848712433fd Mon Sep 17 00:00:00 2001
From: Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com>
Date: Mon, 23 Aug 2021 08:14:01 +0200
Subject: Update ch-2.pl

Small change to randomization of placing bombs
---
 challenge-126/perlboy1967/perl/ch-2.pl | 5 +++--
 1 file 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)];
-- 
cgit