diff options
| author | Michael Manring <michael@manring> | 2022-02-19 18:41:44 +0700 |
|---|---|---|
| committer | Michael Manring <michael@manring> | 2022-02-19 18:41:44 +0700 |
| commit | fe62075d50177316cc47b83651c66a168aa449dd (patch) | |
| tree | 3db05ec281790b83e58020114271efc95b1dc74d /challenge-152 | |
| parent | da3a3bb9fbf381ffc7917ae9d8bbd864f728c0f9 (diff) | |
| download | perlweeklychallenge-club-fe62075d50177316cc47b83651c66a168aa449dd.tar.gz perlweeklychallenge-club-fe62075d50177316cc47b83651c66a168aa449dd.tar.bz2 perlweeklychallenge-club-fe62075d50177316cc47b83651c66a168aa449dd.zip | |
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; } |