Help for this page

Select Code to Download


  1. or download this
    my $only_one = 1 == ($x ? 1 : 0) + ($y ? 1 : 0) + ($z ? 1 :0);        
    +    
    
    my $only_one = 2 == (! $x) + (! $y) + (! $z);
    
  2. or download this
    my $only_one = ($x || $y || $z) && (! ($x && $y)) && (! ($y && $z)) &&
    + (! ($z && $x));
    
    my $only_one = (! ($x && $y && $z)) && ($x ^ $y ^ $z);