Select Code to Download

my %cardvals;
%cardvals{ @hand[0..4]<num> }++

# [234] of a kind
$score += [*]($_,$_-1) for %cardvals.values;

# Fifteens
if any( @hand<val> ) ~~ 5 && any( @hand<val> ) ~~ 10 {
...
        ( grep -> $_<val> ~~ 5, @hand ) *
        ( grep -> $_<val> ~~ 10, @hand );
}

# Runs
SPAN: for 5 .. 3 -> $span {
...
        }
    }
}

Hand = 2,3,3,4 5

2,3,4,5 = 4 points
2,3,4,5 = 4 points
        = 8 points total