use strict;
use warnings;

use Quantum::Superpositions;


my @p_types = qw/ pam php kph /;
my @c_types = qw/ cam c1  c2  /;


my @true =  qw/ pam c2 /;
my @false = qw/ cam c2 /;


print "\@true is ",
      qualify( \@true, \@p_types, \@c_types )
          ?  "True.\n"
          :  "False.\n";

print "\@false is ",
      qualify( \@false, \@p_types, \@c_types )
          ? "True.\n"
          : "False.\n";

sub qualify {
    my( $target, $p_types, $c_types ) = @_;
    my $quantum_target = any( @{$target} );
    return 1 if (
            $quantum_target eq any( @{$p_types} )
        and $quantum_target eq any( @{$c_types} )
    );
    return 0;
}