Rosetta Code

Set consolidation: Difference between revisions

Page Discussion

Set consolidation (view source)

Revision as of 15:03, 5 June 2012

54 bytes removed ,  12 years ago
→‎{{header|Perl 6}}: use more compact conditional
(Added PicoLisp)
(→‎{{header|Perl 6}}: use more compact conditional)
Line 243:
gather {
for consolidate |@y -> $y {
if +($x ∩ $y).elems { $x ∪= $y }
else $x ∪= { take $y; }
}
else {
take $y;
}
}
take $x;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/214541"