140 add _decimal_to_binary to seperate input

1 files changed, 9 insertions, 4 deletions

diff --git a/challenge-140/jake/perl/ch-1.pl b/challenge-140/jake/perl/ch-1.pl
index b0c78536ed..8d16cefb0d 100644
--- a/challenge-140/jake/perl/ch-1.pl
+++ b/challenge-140/jake/perl/ch-1.pl
@@ -9,12 +9,17 @@ use warnings;
 print "decimal number a: ";
 my $a = <STDIN>;
 chomp $a;
-my $power_n = 0;
-my $a_binary += decimal_to_binary ( $power_n, $a );
+my $a_binary = decimal_to_binary ( $a );
 printf ( "binary number a: %i\n", $a_binary );
 
 # convert dec to bin
 sub decimal_to_binary {
+    my ( $decimal ) = @_;
+
+    return _decimal_to_binary ( 0, $decimal );
+}
+
+sub _decimal_to_binary {
     my ( $power, $decimal_number, $binary_quantum ) = @_;
 
     if ( $decimal_number == 0 ) {
@@ -30,9 +35,9 @@ sub decimal_to_binary {
         $binary_quantum += 10**$power;
         $decimal_number -= 2**$power;
         $power = 0;
-        return decimal_to_binary ( $power, $decimal_number, $binary_quantum );
+        return _decimal_to_binary ( $power, $decimal_number, $binary_quantum );
     }
 
     $power++;
-    return decimal_to_binary ( $power, $decimal_number, $binary_quantum );
+    return _decimal_to_binary ( $power, $decimal_number, $binary_quantum );
 }
\ No newline at end of file