Rosetta Code

Set consolidation: Difference between revisions

Page Discussion

Set consolidation (view source)

Revision as of 21:41, 3 May 2018

131 bytes removed ,  6 years ago
→‎{{header|Aime}}
Line 195:
o_text(i ? ", {" : "{");
for (u in r) {
o_texto_(v, u);
v = ", ";
o_text(u);
}
o_text("}");
Line 208 ⟶ 207:
intersect(record r, record u)
{
trap_q(r_vcall, r, r_put, 1, record().copy(u), 0);
integer a;
text s;
 
a = 0;
for (s in r) {
if (u.key(s)) {
a = 1;
break;
}
}
 
a;
}
 
Line 252 ⟶ 240:
 
l;
}
 
list
L(...)
{
xcall(l_assemble);
}
 
Line 267 ⟶ 249:
ucall(r_put, 1, r, 0);
 
return r;
}
 
Line 273 ⟶ 255:
main(void)
{
display(consolidate(Llist(R("A", "B"), R("C", "D"))));
display(consolidate(Llist(R("A", "B"), R("B", "D"))));
display(consolidate(Llist(R("A", "B"), R("C", "D"), R("D", "B"))));
display(consolidate(Llist(R("H", "I", "K"), R("A", "B"), R("C", "D"),
R("D", "B"), R("F", "G", "K"))));
 
0;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/214627"