我可以从地图中返回多个Pa对齐哈希吗？

Question

我正在尝试创建一个按键或值查找的哈希。要查找两种方式，我希望值为键（值为键）。

<
H He
>
    ==> map( {
        state $n = 0; $n++;
        $n     => $_.Str,
        $_.Str => $n
         } )
    ==> my %elements;

%elements.perl.say;

%elements{2}.WHAT.say;

这给了我这个奇怪的事情：

{"1\tH H\t2" => $(2 => "He", :He(2))}
(Any)

只有一对，没关系：

<
H He
>
    ==> map( {
        state $n = 0; $n++;
        $n     => $_.Str
         } )
    ==> my %elements;

%elements.perl.say;

%elements{2}.WHAT.say;

现在我得到了我想要的东西，但没有反向对：

{"1" => "H", "2" => "He"}
(Str)

Answer 1

您的map会返回一系列List个值，每个值包含两个Pair值。
将此提供给哈希不会自动将其展平，并且每个List都会成为哈希的键或值。

有几种方法可以让它做你想做的事：

使用flat

您可以使用内置的flat函数来展平map的结果，以便哈希接收Pair s的序列：

<H He>
==> map {
    (state $n)++;
    +$n => ~$_,
    ~$_ => +$n
}\
==> flat()
==> my %elements;

%elements.say;          # {1 => H, 2 => He, H => 1, He => 2}
%elements{2}.WHAT.say;  # (Str)

map和flat都返回延迟序列，因此即使元素列表很大，这（理论上）也是内存有效的。

• 旁注：我还写了+$n而不是$n，因为=>对构造运算符（如,列表构造operator）不会“解包”其参数 - 如果你给它一个项容器，如$变量，它将直接绑定到它而不是包含在其中的值，这会导致下一个{{1还会影响从上一次迭代返回的$n++。为对象构造运算符赋予值表达式而不是变量，避免了这种情况。

使用Pair

slip是slip的内到外版本：

flat

<H He> ==> map { (state $n)++; slip +$n => ~$_, ~$_ => +$n }\ ==> my %elements; 的每次迭代现在都返回Slip类型的值，就像map一样，除了它会自动溶解到它成为其中一部分的任何父列表中。

重构

如果你不依赖于你的特定方法，这里有两种可能更清晰的方法来生成相同的哈希：

List

或者：

my @keys = 1..*;
my @values = <H He>;
my %elements = flat (@keys Z=> @values), (@values Z=> @keys);

（Z是“zip”元运算符）