From 13ad8858a5e089fdf92bc43ac28e197d2a041062 Mon Sep 17 00:00:00 2001
From: dasJake <no_mail@github.com>
Date: Tue, 23 Nov 2021 20:56:18 +0100
Subject: 140 add _decimal_to_binary to seperate input

---
 challenge-140/jake/perl/ch-1.pl | 13 +++++++++----
 1 file 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
-- 
cgit