Anonymous user
Set consolidation: Difference between revisions
→{{header|Perl 6}}: add entry
(→{{header|REXX}}: added the REXX language. -- ~~~~) |
(→{{header|Perl 6}}: add entry) |
||
Line 237:
{ {K I F G H} {B A C D} }</pre>
=={{header|Perl 6}}==
{{works with|niecza|2012-06}}
<lang perl6>multi consolidate(Set $x) { $x }
multi consolidate(Set $x is copy, *@y) {
gather {
for consolidate |@y -> $y {
if ($x ∩ $y).elems {
$x ∪= $y;
}
else {
take $y;
}
}
take $x;
}
}
enum Elems ('A'..'Z');
say $_, "\n ==> ", consolidate |$_
for [set(A,B), set(C,D)],
[set(A,B), set(B,D)],
[set(A,B), set(C,D), set(D,B)],
[set(H,I,K), set(A,B), set(C,D), set(D,B), set(F,G,H)];</lang>
{{out}}
<pre>set(A, B) set(C, D)
==> set(C, D) set(A, B)
set(A, B) set(B, D)
==> set(A, B, D)
set(A, B) set(C, D) set(D, B)
==> set(A, B, C, D)
set(H, I, K) set(A, B) set(C, D) set(D, B) set(F, G, H)
==> set(A, B, C, D) set(H, I, K, F, G)</pre>
=={{header|Python}}==
===Iterative===
| |||