Set consolidation: Difference between revisions

Content added Content deleted

Inline

@@ Line 239: / Line 239: @@
 =={{header|Perl 6}}==
 {{works with|niecza|2012-06}}
-<lang perl6>multi consolidate(Set $x) { $x }
+<lang perl6>multi consolidate() { () }
-multi consolidate(Set $x is copy, *@y) {
+multi consolidate(Set \this is copy, *@those) {
     gather {
-        for consolidate |@y -> $y {
+        for consolidate |@those -> \that {
-            if +($x ∩ $y) { $x ∪= $y }
+            if +(this ∩ that) { this ∪= that }
-            else          { take $y }
+            else              { take that }
         }
-        take $x;
+        take this;
     }
 }