Select Code to Download

use strict;
use Quantum::Superpositions;
...
my @e = eigenstates( $s );

print "Am I on to something? @e\n";

my $t = any(1 .. 4); $t = $t != $s;

   $t = $t != $_ for eigenstates( $s );