# Runs
SPAN: for 5 .. 3 -> $span {
for 1 .. 11 -> $start {
if all( @cardvals{ $start .. $start + $span } ) {
$score += $span [*] %cardvals{ $start .. $start + $span};
last SPAN;
}
}
}
####
# Fifteens
$score += 2 * all( 15 == [+]@hand{ any( 0 .. 4 ) } };
####
# Fifteens
$score += 2 * all( 15 == [+]%hand{ any( 0 .. 4 ) } )>>.;