From fe62075d50177316cc47b83651c66a168aa449dd Mon Sep 17 00:00:00 2001
From: Michael Manring <michael@manring>
Date: Sat, 19 Feb 2022 18:41:44 +0700
Subject: fix bug on eval error on double minus signs

---
 challenge-152/pokgopun/perl/ch-2.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/challenge-152/pokgopun/perl/ch-2.pl b/challenge-152/pokgopun/perl/ch-2.pl
index 9cacf7c8a0..4fe3a5fb5f 100644
--- a/challenge-152/pokgopun/perl/ch-2.pl
+++ b/challenge-152/pokgopun/perl/ch-2.pl
@@ -36,7 +36,7 @@ sub recCov {
 				push @{$val->{r}->{$rec_id}->{$axis}}, shift @val;
 			}
 		}
-		$val->{r}->{$rec_id}->{c} = eval(join( "*", map{ "abs(".join( "-", @{$val->{r}->{$rec_id}->{$_}} ).")" } @axis ));
+		$val->{r}->{$rec_id}->{c} = eval(join( " * ", map{ "abs(".join( " - ", @{$val->{r}->{$rec_id}->{$_}} ).")" } @axis ));
 	}
 	sub cTree {
 		my($c,$n,$e,$res) = @_;
@@ -73,14 +73,14 @@ sub recCov {
 				$ra1 > $rb1 && $ra0 > $rb0 ? $rb1 - $ra0 :
 				$ra1 < $rb1 && $ra0 < $rb0 ? $ra1 - $rb0 : undef;
 		}
-		$val->{o}->{$o_pair}->{c} = eval(join("*",values %{$val->{o}->{$o_pair}}));
+		$val->{o}->{$o_pair}->{c} = eval(join(" * ",values %{$val->{o}->{$o_pair}}));
 	}
 	{
 		last unless $debug;
 		print Dumper $val;
 	}
-	my $sum_c = eval(join( "+", map{ $val->{r}->{$_}->{c} } @rec_id)); 
-	my $sum_o = eval(join( "+", map{ $val->{o}->{join("_",@$_)}->{c} } @$o_rec )); 
+	my $sum_c = eval(join( " + ", map{ $val->{r}->{$_}->{c} } @rec_id)); 
+	my $sum_o = eval(join( " + ", map{ $val->{o}->{join("_",@$_)}->{c} } @$o_rec )); 
 	return $sum_c - $sum_o;
 }
 
-- 
cgit