diff options
| -rw-r--r-- | challenge-140/jake/perl/ch-1.pl | 13 |
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 |