diff options
| -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 ]; } |