Simplify code

1 files changed, 12 insertions, 12 deletions

diff --git a/challenge-126/wlmb/perl/ch-2.pl b/challenge-126/wlmb/perl/ch-2.pl
index b19c1b6b44..5ec2e4e5b0 100755
--- a/challenge-126/wlmb/perl/ch-2.pl
+++ b/challenge-126/wlmb/perl/ch-2.pl
@@ -7,18 +7,17 @@ use warnings;
 use strict;
 use v5.12;
 use PDL;
-use PDL::Image2D;
+use PDL::Image2D; # for conv2d
 
-my %translate=('x'=>1, '*'=>0);
 my $input=process_input();
-my $count=conv2d($input, ones(3,3), {Boundary=>'Truncate'});
-my $output=-10*$input+$count; #mine sites get negative numbers
-# Make strings and remove brackets
-(my $input_str="$input")=~tr(01[])(*x)d;
+my $kernel=pdl([1,1,1],[1,-9,1],[1,1,1]);
+my $output=$input->conv2d($kernel, {Boundary=>'Truncate'});
+# Make strings and format them
+(my $input_str="$input")=~tr(01[])(*x)d; #translate and remove brackets
 my $output_str="$output";
-$output_str=~s/-\d+/ x/g;
-$output_str=~s/ +/ /g;
-$output_str=~tr([])()d;
+$output_str=~s/-\d+/ x/g; #identify sites with bombs
+$output_str=~s/ +/ /g; #separate sites with single spaces
+$output_str=~tr([])()d; #remove brackets
 say "Input:$input_str\nOutput:$output_str";
 
 sub process_input {
@@ -27,12 +26,13 @@ sub process_input {
     while(<>){ # read input from STDIN
 	chomp;
 	next if /^\s*$/; #ignore null lines
-	die "Only 'x' and '*' and spaces allowed: $_" unless m/^[x*\s]*$/;
-	my @line=map {$translate{$_}} split ' ', $_;
+	die "Only 'x' and '*' and spaces allowed: $_" unless m/^[x* \t]*$/;
+	tr(*x \t)(01)d;
+	my @line=split '';
 	die "All lines should have the same length: $_"
 	    if defined $length and $length!=@line;
 	$length//=@line;
 	push @input, [@line];
     }
-    my $input=pdl [@input];
+    pdl [@input];
 }