aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Task/Symmetric-difference/Aime/symmetric-difference.aime
View file

@ -4,39 +4,27 @@ show_sdiff(record u, record x)
record r;
text s;
r_copy(r, u);
r.copy(u);
if (r_first(x, s)) {
do {
if (r_key(r, s)) {
r_delete(r, s);
} else {
r_p_integer(r, s, 0);
}
} while (rsk_greater(x, s, s));
for (s in x) {
if (r.key(s)) {
r.delete(s);
} else {
r.p_integer(s, 0);
}
}
if (r_first(r, s)) {
do {
o_text(s);
o_byte('\n');
} while (rsk_greater(r, s, s));
}
r.vcall(o_, 0, "\n");
}
record
new_set(...)
{
integer i;
record r;
i = 0;
while (i < count()) {
r_p_integer(r, $i, 0);
i += 1;
}
ucall(r_p_integer, 1, r, 0);
return r;
r;
}
integer
@ -45,5 +33,5 @@ main(void)
show_sdiff(new_set("John", "Bob", "Mary", "Serena"),
new_set("Jim", "Mary", "John", "Bob"));
return 0;
0;
}