diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2023-12-05 17:45:57 -0500 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2023-12-05 17:45:57 -0500 |
| commit | 522ed3277bfc40a4d6e3bbcc61ab6f9273b5c625 (patch) | |
| tree | 225073f319e31de1bd37280abd21f3ee48a89141 /challenge-246 | |
| parent | be0b6ccafa2ecfadaa96e246aa2c81a85f9d0bf9 (diff) | |
| download | perlweeklychallenge-club-522ed3277bfc40a4d6e3bbcc61ab6f9273b5c625.tar.gz perlweeklychallenge-club-522ed3277bfc40a4d6e3bbcc61ab6f9273b5c625.tar.bz2 perlweeklychallenge-club-522ed3277bfc40a4d6e3bbcc61ab6f9273b5c625.zip | |
removed module in 246 retry
Diffstat (limited to 'challenge-246')
| -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'; |