Quick Tip #8: Perl 6 sets
Set – a collection of unique thingys
Bag - a collection of unique thingys,but weighted for the count of the number of times something is put the bag
Mix - a bag that allows fractional weights
這些是不可變類型。一旦生成就不可變了。每一個都有一個 Hash 版本以允許你更改成員, 但是我會忽略這些。
$ perl6
> my $set = set( 1, 2, 3, 4 )
set(4, 3, 1, 2)
> 4 ∈ $set # member of
True
> 5 ∈ $set # member of
False
> 5 ? $set # not member of
True
> set( 2, 3 ) ? $set # subset of
True
> set( 2, 6 ) ? $set # subset of
False
集合是一種更自然的查看一個值是否存在于一個值的列表中的方式。你可能每一個哈希和使用 :exists 來檢查鍵，但集合會這樣做（盡管那就是 Perl 6 集合現在在幕后為你所做的）：
my $set = set( <a b c d> );
my $item = 'h';
say "$item is in set" if $item ∈ $set;
Perl 6擁有將兩個列表轉換為集合的操作符:
$ perl6
> ( 1, 2, 3 ) ∪ ( 4, 5 ) # 并集
set(5, 4, 3, 1, 2)
> ( 1, 2, 4 ) ∩ ( 1, 2, 3 ) # 交集
set(1, 2)
> ( 1, 2, 4 ) ? ( 1, 2, 3 ) # 差集
set(4)
> ( 1, 2, 4 ) ? ( 1, 2, 3 ) # 對稱差分
set(4, 3)
到目前為止，我使用了你在集合數學中看到的奇怪的 Unicode 字符，但每個都有德克薩斯（ASCII）版本：
Texas Fancy Codepoint (hex) Operation
(elem) ∈ U+2208 member of, $a ∈ $set or $a (elem) $set
!(elem) ? U+2209 not a member of, $a ? $set or $a !(elem) $set
(cont) ? U+220B contains,
!(cont) ? U+220C does not contain
(<=) ? U+2286 subset of or equal to,
!(<=) ? U+2288 not subset of nor equal to,
(<) ? U+2282 subset of
!(<) ? U+2284 not subset of
(>=) ? U+2287 superset of or equal to,
!(>=) ? U+2289 not superset of nor equal to,
(>) ? U+2283 superset of
!(>) ? U+2285 not superset of
(<+) ? U+227C baggy subset
!(>+) ? U+227D not baggy subset
有從兩個列表中返回集合的操作符：
Texas Fancy Codepoint (hex) Operation
(|) ∪ U+222A union
(&) ∩ U+2229 intersection
(-) ? U+2216 difference
(^) ? U+2296 symmetric difference
(.) ? U+228D baggy multiplication
(+) ? U+228E baggy addition
