Brain Twister #13 solved with Perl 6

brain-twister-13.pl6

#!perl6
use v6.c;

my @pots[12] = (
    <d 1 o d 1>,
    <k 2 d d 2>,
    <v 1 o p 3>,
    <v 1 h s 4>,
    <v 1 o s 5>,
    <d 1 h s 6>,
    <d 1 h p 7>,
    <k 3 o s 8>,
    <v 1 h p 9>,
    <k 2 d p 10>,
    <v 3 h p 11>,
    <d 2 d d 12>,
);

sub is-match(List $_) returns Bool {
    return ( (
             ( .[0][0] eq .[1][0] eq .[2][0] )
          || ( .[0][0], .[1][0], .[2][0] ).Bag.elems == 3
         )
         && (
             ( .[0][1] eq .[1][1] eq .[2][1] )
          || ( .[0][1], .[1][1], .[2][1] ).Bag.elems == 3
         )
         && (
             ( .[0][2] eq .[1][2] eq .[2][2] )
          || ( .[0][2], .[1][2], .[2][2] ).Bag.elems == 3
         )
         && (
             ( .[0][3] eq .[1][3] eq .[2][3] )
          || ( .[0][3], .[1][3], .[2][3] ).Bag.elems == 3
         )
    );
}

@pots.combinations(3).grep(&is-match).say;