Sha256: d4d5495b51c4ffd244f3c0cea68665b1e12f9b2621efb7af78b3a56a18688159

Contents?: true

Size: 450 Bytes

Versions: 323

Compression:

Stored size: 450 Bytes

Contents

package Example;

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

323 entries across 323 versions & 1 rubygems

Version Path
trackler-2.2.1.65 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.64 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.63 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.62 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.61 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.60 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.59 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.58 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.57 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.56 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.55 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.54 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.53 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.52 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.51 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.50 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.49 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.48 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.47 tracks/perl5/exercises/binary/Example.pm
trackler-2.2.1.46 tracks/perl5/exercises/binary/Example.pm