Sha256: c3dfdb1ac3abe0288f9bc278e14a66b2d477e467794f71262c749322d605dc25

Contents?: true

Size: 456 Bytes

Versions: 323

Compression:

Stored size: 456 Bytes

Contents

package Example;

use strict;
use warnings;

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

sub to_decimal {
    my $self = shift;

    return 0 unless $self->{trinary} =~ /[012]/g;

    my ($sum, $index) = (0, length $self->{trinary});

    foreach my $digit (split // => $self->{trinary}) {
        $sum += $digit * 3 ** --$index;
    }

    return $sum;
}
__PACKAGE__;

Version data entries

323 entries across 323 versions & 1 rubygems

Version Path
trackler-2.2.1.105 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.104 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.103 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.102 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.101 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.100 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.99 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.98 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.97 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.96 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.95 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.94 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.93 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.92 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.91 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.90 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.89 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.88 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.87 tracks/perl5/exercises/trinary/Example.pm
trackler-2.2.1.86 tracks/perl5/exercises/trinary/Example.pm