Symmetric difference: Difference between revisions
no edit summary
(Ada solution added) |
No edit summary |
||
Line 719:
B \ A: Jim
Symmetric difference: Serena, Jim</pre>
=={{header|Perl 6}}==
<lang Perl 6>my @firstnames = <John Serena Bob Mary Serena> ;
my @secondnames = <Jim Mary John Jim Bob> ;
my %infirstnames ;
my %insecondnames ;
for @firstnames -> $name {
%infirstnames{$name} = 0 ;
}
for @secondnames -> $name {
%insecondnames{$name} = 0 ;
}
my @symdifference ;
for %infirstnames.keys -> $name {
push @symdifference , $name unless ( %insecondnames.exists( $name ) ) ;
}
for %insecondnames.keys -> $name {
push @symdifference , $name unless ( %infirstnames.exists( $name ) ) ;
}
say @symdifference.join( ", " ) ;
</lang>
This produces the output:
<pre>Serena, Jim</pre>
=={{header|PHP}}==
| |||