diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2019-10-15 11:52:07 -0400 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2019-10-15 11:52:07 -0400 |
| commit | a40a6a737d852798f02f0a3741237fe61bfd5543 (patch) | |
| tree | 290d96af8a3999e6c37429225c7ba7371b4ec674 /challenge-030/dave-jacoby | |
| parent | c0d388628fb074634c756c9dc2d382b3455e803b (diff) | |
| download | perlweeklychallenge-club-a40a6a737d852798f02f0a3741237fe61bfd5543.tar.gz perlweeklychallenge-club-a40a6a737d852798f02f0a3741237fe61bfd5543.tar.bz2 perlweeklychallenge-club-a40a6a737d852798f02f0a3741237fe61bfd5543.zip | |
forgot 1 + 1 + 10 case
Diffstat (limited to 'challenge-030/dave-jacoby')
| -rwxr-xr-x | challenge-030/dave-jacoby/perl5/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-030/dave-jacoby/perl5/ch-2.pl b/challenge-030/dave-jacoby/perl5/ch-2.pl index a3ca0a143c..5b65c38bcd 100755 --- a/challenge-030/dave-jacoby/perl5/ch-2.pl +++ b/challenge-030/dave-jacoby/perl5/ch-2.pl @@ -21,9 +21,9 @@ no warnings my %done ; -for my $m ( 1 .. 9 ) { - for my $n ( 1 .. 9 ) { - for my $o ( 1 .. 9 ) { +for my $m ( 1 .. 10 ) { + for my $n ( 1 .. 10 ) { + for my $o ( 1 .. 10 ) { my $i = join ' ' , sort $m,$n,$o; next if $done{$i}++;; my $p = $m + $n + $o; |