140 remove file bin2dec.pl

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