diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-02-19 12:44:13 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-02-19 12:44:13 +0000 |
| commit | ebae5b3c087b716ca482cc7d2564957f966cc540 (patch) | |
| tree | e0d4151cd79fa46068116f06f711bc32515ef72a /challenge-152 | |
| parent | a7436b087e8e6e03e059fa618d854613b6693853 (diff) | |
| parent | fe62075d50177316cc47b83651c66a168aa449dd (diff) | |
| download | perlweeklychallenge-club-ebae5b3c087b716ca482cc7d2564957f966cc540.tar.gz perlweeklychallenge-club-ebae5b3c087b716ca482cc7d2564957f966cc540.tar.bz2 perlweeklychallenge-club-ebae5b3c087b716ca482cc7d2564957f966cc540.zip | |
Merge pull request #5677 from pokgopun/new-branch
fix bug on eval error on double minus signs
Diffstat (limited to 'challenge-152')
| -rw-r--r-- | challenge-152/pokgopun/perl/ch-2.pl | 8 |
1 files 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; } |