Sha256: 42caf605925774246db267e2a3c1f04a30dc60772bba03f3933b2e99a3c93115

Contents?: true

Size: 456 Bytes

Versions: 73

Compression:

Stored size: 456 Bytes

Contents

package Trinary;

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

73 entries across 73 versions & 1 rubygems

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