Symmetric difference: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: fix markup)
Line 63: Line 63:
text s;
text s;


r_copy(r, u);
r.copy(u);


if (r_first(x, s)) {
for (s in x) {
do {
if (r.key(s)) {
if (r_key(r, s)) {
r.delete(s);
r_delete(r, s);
} else {
} else {
r.p_integer(s, 0);
r_p_integer(r, s, 0);
}
}
} while (rsk_greater(x, s, s));
}
}


if (r_first(r, s)) {
r.vcall(o_, 0, "\n");
do {
o_text(s);
o_byte('\n');
} while (rsk_greater(r, s, s));
}
}
}


Line 86: Line 79:
new_set(...)
new_set(...)
{
{
integer i;
record r;
record r;


i = 0;
ucall(r_p_integer, 1, r, 0);
while (i < count()) {
r_p_integer(r, $i, 0);
i += 1;
}


return r;
r;
}
}


Line 104: Line 92:
new_set("Jim", "Mary", "John", "Bob"));
new_set("Jim", "Mary", "John", "Bob"));


return 0;
0;
}</lang>
}</lang>
{{out}}
{{out}}