Perl 6 - 散列也是容器

散列也是容器

假设我们想计算某个东西的出现次数, 我们通常的做法是弄一个 "seen-hash" 散列。有时候我们有一组待查询的键, 其中有些键可能不在我们所扫描的数据中。那是一种特殊情况, 但是 Perl 6 能够完美地解决, 因为散列也是容器, 因此我们能够拥有默认值。

my $words = .lc;
constant alphabet = 'a' .. 'z';

my %seen of Int is default(0);

%seen{$_}++ for $words.comb;
put "$_: %seen{$_}" for alphabet;

输出结果:

a: 3
b: 0
c: 1
d: 0
e: 3
f: 0
g: 0
h: 2
i: 1
j: 0
k: 0
l: 0
m: 0
n: 2
o: 3
p: 0
q: 0
r: 2
s: 3
t: 2
u: 0
v: 0
w: 0
x: 0
y: 0
z: 0

$words 中没有出现的特殊字符由 is default(0) 处理了。
默认值可以被精心设计。我们来弄一个在数值上下文中为默认值为 0 但是在字符串上下文中为默认值为 NULL 并且总是被定义的一个散列。

my %seen of Int is default(0 but role :: { method Str() {'NULL'} });
say %seen, %seen.defined, Int.new(%seen);

# OUTPUT
# «NULLTrue0
»