diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-11-15 12:55:06 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-11-15 12:55:06 +0800 |
| commit | b631637ebc50047e4a96b0d9c109187af2e36460 (patch) | |
| tree | c47a64dd33bfde2f9df4c4803267cd685416f664 /challenge-138 | |
| parent | 0acead8055a6b88bda956b3855f24f86d87ede2a (diff) | |
| download | perlweeklychallenge-club-b631637ebc50047e4a96b0d9c109187af2e36460.tar.gz perlweeklychallenge-club-b631637ebc50047e4a96b0d9c109187af2e36460.tar.bz2 perlweeklychallenge-club-b631637ebc50047e4a96b0d9c109187af2e36460.zip | |
mess up the optimization
Diffstat (limited to 'challenge-138')
| -rw-r--r-- | challenge-138/cheok-yin-fung/perl/ch-2.pl | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/challenge-138/cheok-yin-fung/perl/ch-2.pl b/challenge-138/cheok-yin-fung/perl/ch-2.pl index 807a17d70a..0cf1fd7ed2 100644 --- a/challenge-138/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-138/cheok-yin-fung/perl/ch-2.pl @@ -25,26 +25,27 @@ sub split_number { my %wlen; # hash to record each unordered partition return 0 if $N == 1; #after reading Abigail's code my $i = Integer::Partition->new($len); - while (my $a = $i->next) { - next if any { $_ > $upper } @$a; + while (my $len_a = $i->next) { + next if any { $_ > $upper } @$len_a; # Explanation for above line: # It is an optimization. # For example, sqrt(9663676416) = 98304 # so we can expect partitions with $number > 99999, # i.e. length $number > 5, # cannot fulfill the requirement. + # (3rd public version, 2021-11-15 04:51 GMT) - # NOT:::::: next if any { length $_ > $upper } @$a; - # (2nd public version) + # NOT:::::: next if any { length $_ > $upper } @$len_a; + # (2nd public version, 2021-11-15 04:35 GMT) - my $j = permutations($a); + my $j = permutations($len_a); while (my $b = $j->next) { if (!defined($wlen{join ",", @$b})) { my @config = ( substr($N ,0, $b->[0]) ); - my $acc = 0; + my $len_acc = 0; for my $k (0..scalar @$b - 2) { - $acc += $b->[$k]; - my $temp = substr($N, $acc, $b->[$k+1]); + $len_acc += $b->[$k]; + my $temp = substr($N, $len_acc, $b->[$k+1]); $temp =~ s/^[0]*//g; $temp = 0 if $temp eq ""; push @config, $temp; @@ -68,7 +69,7 @@ ok split_number(9801) == 1, "Example 2"; ok split_number(36) == 0, "Example 3"; ok split_number(999*999) == 1, "test case 1 with 10^n-1"; ok split_number(9999*9999) == 1, "test case 2 with 10^n-1"; -ok split_number(17073424) == 1, "final test" +ok split_number(17073424) == 1, "final test"; |