diff options
| -rw-r--r-- | challenge-246/dave-jacoby/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-246/dave-jacoby/perl/ch-2.pl | 16 |
2 files changed, 7 insertions, 10 deletions
diff --git a/challenge-246/dave-jacoby/blog.txt b/challenge-246/dave-jacoby/blog.txt new file mode 100644 index 0000000000..dad54dfbf8 --- /dev/null +++ b/challenge-246/dave-jacoby/blog.txt @@ -0,0 +1 @@ +https://jacoby.github.io/2023/12/05/make-it-unique-weekly-challenge-246.html diff --git a/challenge-246/dave-jacoby/perl/ch-2.pl b/challenge-246/dave-jacoby/perl/ch-2.pl index 12e00708a9..9ff50ee947 100644 --- a/challenge-246/dave-jacoby/perl/ch-2.pl +++ b/challenge-246/dave-jacoby/perl/ch-2.pl @@ -23,16 +23,12 @@ for my $e (@examples) { sub lrso (@input) { OUTER: for my $n ( 2 .. -1 + scalar @input ) { - for my $p ( 1 .. 100 ) { - for my $pp ( 1, -1 ) { - my $ppp = ( $p * $pp ) * $input[ $n - 2 ]; - for my $q ( 1 .. 100 ) { - for my $qq ( 1, -1 ) { - my $qqq = ( $q * $qq ) * $input[ $n - 1 ]; - my $rrr = $ppp + $qqq; - next OUTER if $rrr == $input[$n]; - } - } + for my $p ( -100 .. 100 ) { + my $pp = $p * $input[ $n - 2 ]; + for my $q ( -100 .. 100 ) { + my $qq = $q * $input[ $n - 1 ]; + my $rr = $pp + $qq; + next OUTER if $rr == $input[$n]; } } return 'false'; |