diff options
| author | dasJake <no_mail@github.com> | 2021-11-24 23:27:51 +0100 |
|---|---|---|
| committer | dasJake <no_mail@github.com> | 2021-11-24 23:27:51 +0100 |
| commit | b5c6839b3d7e0e19090b54f8308af36092a90ee8 (patch) | |
| tree | 1e7f47993cdd992b599c24c62f262c6abb52b1d0 | |
| parent | 05436a73750a6f51db4bcae860c1991e83179191 (diff) | |
| download | perlweeklychallenge-club-b5c6839b3d7e0e19090b54f8308af36092a90ee8.tar.gz perlweeklychallenge-club-b5c6839b3d7e0e19090b54f8308af36092a90ee8.tar.bz2 perlweeklychallenge-club-b5c6839b3d7e0e19090b54f8308af36092a90ee8.zip | |
140 remove helper bin2dec.pl from master
| -rw-r--r-- | challenge-140/jake/perl/bin2dec.pl | 35 |
1 files changed, 0 insertions, 35 deletions
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 = <STDIN>; -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 |