Help for this page

Select Code to Download


  1. or download this
    use Quantum::Superpositions;
    @a = qw(-true -depth=1);
    ...
    
    print "right" unless eigenstates(any(@a) ne all(@b));
    print "wrong" unless eigenstates(any(@c) ne all(@b));
    
  2. or download this
    right