zeroclickinfo-goodies/lib/DDG/Goodie/Xor.pm

package DDG::Goodie::Xor;

use DDG::Goodie;

triggers any => 'xor', '⊕';

zci is_cached => 1;
zci answer_type => "xor";

handle query_raw => sub {
    my @nums = grep(!/(xor|⊕)/, split(/\s+(⊕|xor)\s+/i, $_));
    my $num = 0;
    foreach (@nums) {
        $num ^= ord(chr($_)) if /^\d+$/;
        return unless /^\d+$/;
    }
    return "$num" if $num;
    return;
};

1;