Week 126

2 files changed, 195 insertions, 0 deletions

diff --git a/challenge-126/cheok-yin-fung/perl/ch-1.pl b/challenge-126/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..03dabfdf82
--- /dev/null
+++ b/challenge-126/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1 @@
+perl -E '$_ = [grep {$_ !~ /1/} (1..$ARGV[0])]; say scalar @{$_}, "\n", "@{$_}"' 126
diff --git a/challenge-126/cheok-yin-fung/perl/ch-2.pl b/challenge-126/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..2401585f9e
--- /dev/null
+++ b/challenge-126/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,194 @@
+#!/usr/bin/perl
+use List::Util qw/sum/;
+use Getopt::Long;
+use Data::Dumper;
+use IO::Prompter;    # for the game part
+use v5.12.0;
+use experimental;
+no warnings;
+# Usage: $ ch-2.pl --file filename_of_the_map
+
+my $num_of_mines = 0;
+my $map;
+my $filename;
+
+GetOptions('file=s' => \$filename,);
+
+open FILE, $filename or die "Usage: \$ ch-2.pl --file filename_of_the_map\n";
+
+while ($_ = <FILE>) {
+    chomp($_);
+    $map .= ($_."\n");
+}
+close FILE;
+
+$map =~ s/[ \t]//g;
+
+my @temp = split "\n", $map;
+my $width = length $temp[0];
+my $height = scalar @temp;
+
+push @temp, '*' x $width;
+unshift @temp, '*' x $width;
+
+$_ = '*'. $_ . '*' foreach @temp;
+
+my $m = \@temp;
+
+for my $row (1..$height) {
+    for my $col (1..$width) {
+        substr($m->[$row], $col, 1) = countx($row, $col);
+    }
+}
+
+sub countx {
+    my $row = $_[0];
+    my $col = $_[1];
+
+    if (substr($m->[$row], $col, 1 ) eq 'x') {
+        $num_of_mines++;
+        return 'x';
+    }
+    my $ans = 0;
+    for my $r (-1, 0, +1) {
+        for my $c (-1, 0, +1) {
+            $ans += int( substr($m->[$row+$r], $col+$c,1 ) eq 'x')
+               unless ($r == $c && $c == 0)
+        }
+    }
+    return $ans;
+}
+
+for my $row (1..$height) {
+    substr($m->[$row], 0, 1) = "";
+    substr($m->[$row], -1, 1) = "";
+}
+
+my $master_board;
+for my $i (0..$height-1) {
+    $master_board->[$i] = [split //, $m->[$i+1]];
+}
+
+# =============== BEGIN: game (can be removed) ============
+# Following Lubos Kolouch's suggestion on the facebook group,
+# write a playable interface.
+
+my %b35;
+$b35{$_} = $_ for (1..9);
+$b35{$_} = chr(ord("A")-10+$_) for (10..35);
+
+my %rb35;
+$rb35{$_} = $_ for (1..9);
+$rb35{$_} = ord($_)-ord("A")+10 for ("A".."Z");
+
+
+# initialization
+my $explosion = undef;
+my $num_of_op_pos = 0;
+my $num_of_flags = 0;
+my $num_of_digits = $width*$height-$num_of_mines;
+
+my $table;
+for my $i (0..$height-1) {
+    for my $j (0..$width-1) {
+        $table->[$i][$j] = ".";
+    }
+}
+
+
+# interactive game
+my @data = ("", "", "");
+while (   !$explosion 
+        && $data[2] ne "q" 
+        && $num_of_op_pos < $num_of_digits
+      ) 
+{
+    my ($i, $j);
+
+    print_table();
+    say 'action option: (o(open), f(flag/unflag), c(cancel) or q(quit))';
+    @data = (
+        prompt(' row  :'),
+        prompt(' col  :'),
+        prompt('action:'),
+    );
+
+    if ( $data[0] !~ /^[1-9A-Z]$/ || $data[1] !~ /^[1-9A-Z]$/ )  {
+         say "Cannot identify your input of row/col.";
+         next; 
+    }
+    else
+    {     
+        $i = $rb35{$data[0]} - 1;  
+        $j = $rb35{$data[1]} - 1;  
+    }
+
+    if ( 
+        ($i > $height-1 || $i < 0)    
+           ||
+        ($j > $width-1 || $j < 0)  
+       )
+    {
+         say "Cannot identify your input.";
+         next; 
+    }
+
+    my $act = $data[2];
+    if ($act eq "o" && $master_board->[$i][$j] eq "x") {
+        $explosion = 1;
+        last; 
+    }
+
+    given ($act) {
+        when ("o") {
+            $table->[$i][$j] = $master_board->[$i][$j];
+            $num_of_op_pos++;
+        }
+        when ("f") {
+            if ($table->[$i][$j] !~ /^\d$/) {
+                $table->[$i][$j] = $table->[$i][$j] eq "f" ? "." : "f";
+            }
+            else {
+                say "Grid already identified.";
+            }
+        }
+        when ("c") {say "Action cancelled.";}
+        default {say "Cannot identify your action.";}
+    }
+}
+print "\n" x 3;
+say "BOOOOOOOOOOOOOOOOOOOOOOOOOOOOMB!" if $explosion;
+say "Safe, my hero!"
+  if $num_of_op_pos == $num_of_digits;
+
+sub print_table {
+    say "number of bombs: " , $num_of_mines;
+    say "number of flags: " , $num_of_flags;
+    say "number of opened positions: " , $num_of_op_pos;
+    print " ";
+    print sprintf("%2s", $b35{$_}) for (1..$width);
+    print "\n";
+    for my $i (0..$height-1) {
+        print $b35{$i+1}," ";
+        for my $j (0..$width-1) {
+            print $table->[$i][$j], " ";
+        }
+        print "\n";
+    }
+    print "\n" x 3;
+}
+
+
+# ================= END: game ===========================
+
+print_mine();
+
+sub print_mine {
+    for my $i (0..$height-1) {
+        print "  ";
+        for my $j (0..$width-1) {
+            print " ",$master_board->[$i][$j];
+        }
+        print "\n";
+    }
+}