Set consolidation: Difference between revisions

Set consolidation (view source)

24 bytes added , 12 years ago

→‎{{header|Perl 6}}: use empty list for degenerate case rather than single item, use pronouns instead of x and y

Anonymous user

Revision as of 15:03, 5 June 2012 (view source) rosettacode>TimToady (→‎{{header\|Perl 6}}: use more compact conditional) ← Older edit		Revision as of 15:25, 5 June 2012 (view source) rosettacode>TimToady (→‎{{header\|Perl 6}}: use empty list for degenerate case rather than single item, use pronouns instead of x and y) Newer edit →
Line 239: =={{header\|Perl 6}}== {{works with\|niecza\|2012-06}} <lang perl6>multi consolidate(~~Set $x~~) { $x() } multi consolidate(Set $x\this is copy, *@ythose) { gather { for consolidate \|@ythose -> $y\that { if +($xthis ∩ $ythat) { $xthis ∪= $ythat } else { take $ythat } } take $xthis; } }