Sha256: e642685f45e3e8d02cbc339dbff808a2faa433151fc0526a02fcb7b9e4aa0112

Contents?: true

Size: 525 Bytes

Versions: 34

Compression:

Stored size: 525 Bytes

Contents

class Scrabble {
    has %.values = (
            aeioulnrst => 1,
            dg         => 2,
            bcmp       => 3,
            fhvwy      => 4,
            k          => 5,
            jx         => 8,
            qz         => 10,
            ZERO       => 0,
        );

    method score ($word) {
        my $score = 0;

        for $word.lc.split('',:skip-empty) -> $letter {
            $score
            += self.values{ self.values.keys.first(/$letter/) or 'ZERO' };
        }
        return $score;
    }
}

Version data entries

34 entries across 34 versions & 1 rubygems

Version Path
trackler-2.0.5.16 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.15 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.14 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.13 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.12 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.11 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.10 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.9 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.8 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.7 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.6 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.5 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.4 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.3 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.2 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.1 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.5.0 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.4.0 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.3.9 tracks/perl6/exercises/scrabble-score/Example.pm
trackler-2.0.3.8 tracks/perl6/exercises/scrabble-score/Example.pm