# 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 ) } )>>.;