diff options
| author | dasJake <no_mail@github.com> | 2021-11-23 21:33:45 +0100 |
|---|---|---|
| committer | dasJake <no_mail@github.com> | 2021-11-23 21:33:45 +0100 |
| commit | afec256a9d3aadf2e7f97a8911bb6ee96ce9f491 (patch) | |
| tree | 5dc13a38f6fe212a9be1a8caadff263de5348c77 | |
| parent | 13ad8858a5e089fdf92bc43ac28e197d2a041062 (diff) | |
| download | perlweeklychallenge-club-afec256a9d3aadf2e7f97a8911bb6ee96ce9f491.tar.gz perlweeklychallenge-club-afec256a9d3aadf2e7f97a8911bb6ee96ce9f491.tar.bz2 perlweeklychallenge-club-afec256a9d3aadf2e7f97a8911bb6ee96ce9f491.zip | |
140 refactor decimal_to_binary
| -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 { |