Rosetta Code

Set consolidation: Difference between revisions

Page Discussion

Set consolidation (view source)

Revision as of 04:58, 13 May 2019

162 bytes removed ,  5 years ago
→‎{{header|Aime}}
(→‎Python: Functional: Updated a docstring)
Line 186:
 
=={{header|Aime}}==
<lang aime>voiddisplay(list l)
display(list l)
{
for (integer i;, record r in l) {
record r;
 
for (i, r in l) {
text u, v;
 
Line 206 ⟶ 202:
}
 
integer
intersect(record r, record u)
{
Line 212 ⟶ 207:
}
 
void
merge(record u, record r)
{
r.wcall(r_add, 1, 2, u);▼
}
 
list
consolidate(list l)
{
for (integer i;, record r in l) {
record r;
 
for (i, r in l) {
integer j;
 
j = i - ~l;
while (j += 1) {
recordif u;(intersect(r, l[j])) {
▲ r.wcall(r_add, 1, 2, ul[j]);
 
u = l[j];
if (intersect(r, u)) {
merge(u, r);
l.delete(i);
i -= 1;
Line 244 ⟶ 226:
}
 
record
R(...)
{
Line 251 ⟶ 232:
ucall(r_put, 1, r, 0);
 
return r;
}
 
integer
main(void)
{
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/214640"