diff options
| author | James Smith <js5@sanger.ac.uk> | 2021-08-16 14:30:06 +0100 |
|---|---|---|
| committer | James Smith <js5@sanger.ac.uk> | 2021-08-16 14:30:06 +0100 |
| commit | 66b4f2ac2627a378b8f55e399d65eccc8df52b6e (patch) | |
| tree | 80b0c3245898aed6409cf86078f0bfcfcfe0a938 /challenge-126 | |
| parent | f9896cfb012e307db009089aba9c24c35368fb06 (diff) | |
| parent | 1a1b004f55fb895b19d1e09528e4834f3bfbf9ef (diff) | |
| download | perlweeklychallenge-club-66b4f2ac2627a378b8f55e399d65eccc8df52b6e.tar.gz perlweeklychallenge-club-66b4f2ac2627a378b8f55e399d65eccc8df52b6e.tar.bz2 perlweeklychallenge-club-66b4f2ac2627a378b8f55e399d65eccc8df52b6e.zip | |
Merge branch 'master' of https://github.com/drbaggy/perlweeklychallenge-club
Diffstat (limited to 'challenge-126')
| -rw-r--r-- | challenge-126/james-smith/perl/ch-1.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/challenge-126/james-smith/perl/ch-1.pl b/challenge-126/james-smith/perl/ch-1.pl index 94b9ee2ff9..b3a1866f84 100644 --- a/challenge-126/james-smith/perl/ch-1.pl +++ b/challenge-126/james-smith/perl/ch-1.pl @@ -32,24 +32,24 @@ my @TESTS = ( [ 1000000, 531440 ], ); -# warn "@{$_} -> ", get_no_one_count_x($_->[0]), "\n" foreach @TESTS; +# warn "@{$_} -> ", get_no_one_count_9($_->[0]), "\n" foreach @TESTS; -is( get_no_one_count_x($_->[0]), $_->[1] ) foreach @TESTS; +is( get_no_one_count_9($_->[0]), $_->[1] ) foreach @TESTS; is( get_no_one_count($_->[0]), $_->[1] ) foreach @TESTS; done_testing(); cmpthese(-5,{ 'scan 98' => sub { get_no_one_count( 98 ) }, - 'opt 98' => sub { get_no_one_count_x( 98 ) }, }); + 'opt 98' => sub { get_no_one_count_9( 98 ) }, }); cmpthese(-5,{ 'scan 987' => sub { get_no_one_count( 987 ) }, - 'opt 987' => sub { get_no_one_count_x( 987 ) }, }); + 'opt 987' => sub { get_no_one_count_9( 987 ) }, }); cmpthese(-5,{ 'scan 9876' => sub { get_no_one_count( 9876 ) }, - 'opt 9876' => sub { get_no_one_count_x( 9876 ) }, }); + 'opt 9876' => sub { get_no_one_count_9( 9876 ) }, }); cmpthese(-5,{ 'scan 98765' => sub { get_no_one_count( 98765 ) }, - 'opt 98765' => sub { get_no_one_count_x( 98765 ) }, }); + 'opt 98765' => sub { get_no_one_count_9( 98765 ) }, }); cmpthese(-5,{ 'scan 987654' => sub { get_no_one_count( 987654 ) }, - 'opt 987654' => sub { get_no_one_count_x( 987654 ) }, }); + 'opt 987654' => sub { get_no_one_count_9( 987654 ) }, }); cmpthese(-5,{ 'scan 9876543' => sub { get_no_one_count( 9876543 ) }, - 'opt 9876543' => sub { get_no_one_count_x( 9876543 ) }, }); + 'opt 9876543' => sub { get_no_one_count_9( 9876543 ) }, }); sub get_no_one_count { my $n = shift; @@ -57,7 +57,7 @@ sub get_no_one_count { } ## Optimized version.... seems to work ... and far better than scan... -sub get_no_one_count_x { +sub get_no_one_count_9 { my ( $n, $count, $pow_9 ) = ( shift, 0, 1 ); while($n) { my $t = $n % 10; ## get last digit |