#!/usr/local/bin/perl -w
use strict;
use Quantum::Superpositions;
my @y;
my $i = [ 3, 4, 5 ];
my $j = [ 3 ];
my $k = [ 3, 4, 5 ];
@y = eigenstates(all(any(@$i),any(@$j),any(@$k)));
print "first: @y\n";
$i = [ 5 ];
@y = eigenstates(all(any(@$i)));
print "second: @y\n";
$i = [ 3, 4, 5, 6 ];
$j = [ 4, 5, 6, 7 ];
$k = [ 5, 6, 7, 8 ];
@y = eigenstates(all(any(@$i),any(@$j),any(@$k)));
print "third: @y\n";
my $l = [ 9, 10, 11];
@y = eigenstates( all(any(@$i),any(@$j),any(@$k),any(@$l)));
print "fourth: @y\n";
__END__