22 lines
378 B
Raku
22 lines
378 B
Raku
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;
|