Sha256: d4771bee9c67049c2b1179e056963cad583d6f658f13fd0deb29f14d609585a2

Contents?: true

Size: 449 Bytes

Versions: 73

Compression:

Stored size: 449 Bytes

Contents

package Binary;

use strict;
use warnings;

sub new {
    my ($class, $binary) = @_;
    my $self = bless { binary => $binary } => $class;

    return $self;
}

sub to_decimal {
    my $self = shift;

    return 0 if $self->{binary} =~ m/[^01]/;

    my $decimal = 0;
    my $index = length $self->{binary};

    foreach my $bit ( split // => $self->{binary} ) {
       $decimal += $bit * 2 ** --$index; 
    }

    return $decimal;
}

__PACKAGE__;

Version data entries

73 entries across 73 versions & 1 rubygems

Version Path
trackler-2.2.1.159 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.158 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.157 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.156 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.155 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.154 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.153 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.152 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.151 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.150 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.149 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.148 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.147 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.146 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.145 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.144 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.143 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.142 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.141 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm
trackler-2.2.1.140 tracks/perl5/exercises/binary/.meta/solutions/Binary.pm