add juliodcs week79 perl and raku solutions

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-079/juliodcs/perl/ch-1.pl b/challenge-079/juliodcs/perl/ch-1.pl
index 45140137ec..5409ee8c5a 100644
--- a/challenge-079/juliodcs/perl/ch-1.pl
+++ b/challenge-079/juliodcs/perl/ch-1.pl
@@ -28,7 +28,7 @@ sub length_bin($number) {
 
 # Given a number, it calculates the flips of the most-significant-bit number
 # e.g., ms-flips of 13 (1101) returns the number of flips for number 8 (1000)
-sub score($number) {
+sub ms_flips($number) {
     return 1 if $number == 1;
     1 + ( length_bin($number) - 1 ) * 2**( length_bin($number) - 2 );
 }
@@ -49,7 +49,7 @@ sub calculate ( $number, $total = 0 ) {
     my $extra = $total == 0 ? 0 : $number;
 
     # Use tail call optimization
-    @_ = ( next_number($number), $total + score($number) + $extra );
+    @_ = ( next_number($number), $total + ms_flips($number) + $extra );
     goto &calculate;
 }