Select Code to Download

sub min {
  eigenstates( any(@_) <= all(@_) )
}

multimethod qblop => ( Quantum::Superpositions::Disj, Quantum::Superpo
+sitions::Conj, CODE ) => sub
{
...
        }
        return any @dstates[grep { $dokay[$_] == @cstates } (0..$#dsta
+tes)];
};

$min = $list[0]; for my $i (1..$#list) { $min = $list[$i] if ($min > $
+list[$i]);};

sub is_prime {
  my ($n) = @_;
  return $n % all(2..sqrt($n)+1) != 0
}