Symmetric difference: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix markup) |
|||
Line 63: | Line 63: | ||
text s; |
text s; |
||
r.copy(u); |
|||
for (s in x) { |
|||
if (r.key(s)) { |
|||
r.delete(s); |
|||
} else { |
|||
r.p_integer(s, 0); |
|||
} |
|||
} |
|||
} while (rsk_greater(x, s, 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; |
||
ucall(r_p_integer, 1, r, 0); |
|||
while (i < count()) { |
|||
r_p_integer(r, $i, 0); |
|||
i += 1; |
|||
} |
|||
r; |
|||
} |
} |
||
Line 104: | Line 92: | ||
new_set("Jim", "Mary", "John", "Bob")); |
new_set("Jim", "Mary", "John", "Bob")); |
||
0; |
|||
}</lang> |
}</lang> |
||
{{out}} |
{{out}} |