diff options
| author | Andrew Schneider <atschneider@temple.edu> | 2024-09-08 18:01:34 -0400 |
|---|---|---|
| committer | Andrew Schneider <atschneider@temple.edu> | 2024-09-08 18:01:34 -0400 |
| commit | 957aa54e35293617eccaaab66d725e2c9304576b (patch) | |
| tree | 90c24426057364607437559ce42851050d064fdb /challenge-285 | |
| parent | fc1193b3c8474d649dbb354bdaba6f301d752aea (diff) | |
| download | perlweeklychallenge-club-957aa54e35293617eccaaab66d725e2c9304576b.tar.gz perlweeklychallenge-club-957aa54e35293617eccaaab66d725e2c9304576b.tar.bz2 perlweeklychallenge-club-957aa54e35293617eccaaab66d725e2c9304576b.zip | |
cleanup task 2
Diffstat (limited to 'challenge-285')
| -rw-r--r-- | challenge-285/atschneid/perl/ch-2.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-285/atschneid/perl/ch-2.pl b/challenge-285/atschneid/perl/ch-2.pl index bec2913e28..03432c54f9 100644 --- a/challenge-285/atschneid/perl/ch-2.pl +++ b/challenge-285/atschneid/perl/ch-2.pl @@ -12,12 +12,12 @@ sub make_change_v1( $amount ) { for my $idx ($coin_amount..$amount) { $dynamic_arr[ $idx ] += $dynamic_arr[ $idx - $coin_amount ]; } - say "coin: $coin_amount :: " . ( join ', ', @dynamic_arr ); } return $dynamic_arr[ -1 ]; } sub make_change_v2( $amount ) { + # uses the fact that all coins not pennies are divisible by 5 to be 5 x more efficient $amount = int( $amount / 5 ); return 1 if $amount == 0; @@ -27,7 +27,6 @@ sub make_change_v2( $amount ) { for my $idx ($coin_amount..$amount) { $dynamic_arr[ $idx ] += $dynamic_arr[ $idx - $coin_amount ]; } - say "coin: $coin_amount :: " . ( join ', ', @dynamic_arr ); } return $dynamic_arr[ -1 ]; } |