From afec256a9d3aadf2e7f97a8911bb6ee96ce9f491 Mon Sep 17 00:00:00 2001 From: dasJake Date: Tue, 23 Nov 2021 21:33:45 +0100 Subject: 140 refactor decimal_to_binary --- challenge-140/jake/perl/ch-1.pl | 10 +++++----- 1 file 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 = ; -chomp $a; -my $a_binary = decimal_to_binary ( $a ); -printf ( "binary number a: %i\n", $a_binary ); +print "decimal number: "; +my $decimal_input = ; +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 { -- cgit