diff options
| -rw-r--r-- | challenge-140/jake/perl/ch-1.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-140/jake/perl/ch-1.pl b/challenge-140/jake/perl/ch-1.pl index 8d16cefb0d..59f7ccbecd 100644 --- a/challenge-140/jake/perl/ch-1.pl +++ b/challenge-140/jake/perl/ch-1.pl @@ -6,11 +6,11 @@ use warnings; # https://theweeklychallenge.org/blog/perl-weekly-challenge-140/#TASK1 # get input -print "decimal number a: "; -my $a = <STDIN>; -chomp $a; -my $a_binary = decimal_to_binary ( $a ); -printf ( "binary number a: %i\n", $a_binary ); +print "decimal number: "; +my $decimal_input = <STDIN>; +chomp $decimal_input; +my $a_binary = decimal_to_binary ( $decimal_input ); +printf ( "binary number: %i\n", $a_binary ); # convert dec to bin sub decimal_to_binary { |