From aeaf448a0e64c62e58d56402cd515afff09c2529 Mon Sep 17 00:00:00 2001 From: dasJake Date: Sat, 27 Nov 2021 18:35:11 +0100 Subject: 140 remove file bin2dec.pl --- challenge-140/jake/perl/bin2dec.pl | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 challenge-140/jake/perl/bin2dec.pl diff --git a/challenge-140/jake/perl/bin2dec.pl b/challenge-140/jake/perl/bin2dec.pl deleted file mode 100644 index 6514d88e7d..0000000000 --- a/challenge-140/jake/perl/bin2dec.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/r/bin/perl -use strict; -use warnings; - -# get input -print "binary number: "; -my $binary_input = ; -chomp $binary_input; - -my $a_decimal = binary_to_decimal ( $binary_input ); -print "$a_decimal\n"; - -sub binary_to_decimal { - my ( $binary ) = @_; - - return _binary_to_decimal ( $binary, 0, 0 ); -} - -sub _binary_to_decimal { - my ( $binary_number, $power, $acc, $tail ) = @_; - return $acc if $binary_number eq ''; - - $tail = chop ($binary_number); - - if ( $tail == 1 ) { - $acc += 2**$power; - $power++; - return _binary_to_decimal ( $binary_number, $power, $acc ); - } - - if ( $tail == 0 ) { - $power++; - return _binary_to_decimal ( $binary_number, $power, $acc ); - } -} \ No newline at end of file -- cgit