Question

我们说我有一个描述金额的嵌套哈希：

my %money = (coins => {'50c' => 4}, notes => {'10' => 1, '20' => 5});

我想要的格式是记录列表：

my @money = [
  (:type('coins'), :subtype('50c'), value => 4),
  (:type('notes'), :subtype('10'), value => 1),
  (:type('notes'), :subtype('20'), value => 5),
];

最明显的答案是循环：

my @money;
for %money.kv -> $type, %sub-records {
  for %sub-records.kv -> $subtype, $value {
    @money.push: (:$type, :$subtype, :$value);
  }
}

但我对将变量与填充变量的代码分开是过敏的。接下来，我尝试在输入哈希上创建具有功能转换的变量：

%money.kv.map: -> $k1, %hsh2 { :type($k1) X, %hsh2.kv.map(->$k2, $v2 {:subtype($k2), :$v2, :value($v2)}) }

但我没有得到正确的筑巢。我想要一份平面清单清单。另外，上面的内容很难阅读。

妥协是gather / take构造，它允许我通过迭代构造一个列表，而在主范围内没有任何临时/未初始化的垃圾：

my @money = gather for %money.kv -> $type, %sub-records {
  for %sub-records.kv -> $subtype, $value {
    take (:$type, :$subtype, :$value);
  }
};

但我很好奇，只有像map，X或Z和flat这样的列表转换才能做到这一点的正确方法是什么？（＆＃34; key1＆＃34;，＆＃34; key2＆＃34;和＆＃34;值＆＃34;是精确的字段名称，因为算法不应该是特定于域的。）

编辑：我应该提到在Perl 6中，gather / take是最易读的解决方案（最适合不是只写的代码）。我仍然对纯粹的功能解决方案感到好奇。

Answer 1

my @money = %money.map:
-> ( :key($type), :value(%records) ) {
  slip

      :$type xx *
    Z
      ( 'subtype' X=> %records.keys   )
    Z
      (   'value' X=> %records.values )
}

你可以.kv.map: -> $type, %records {…}

-> ( :key($type), :value(%records) ) {…}解析Pair对象
:$type创建type => $type对
:$type xx *无限重复:$type（Z当其中任何输入停止时停止）
('subtype' X=> %records.keys)创建了一对列表（请注意，如果您不修改通话之间的哈希值，则.keys和.values的顺序相同。
Z拉下两个列表
slip导致序列的元素滑入外部序列
（flat会过分夸大）

如果您希望对它们进行排序

my @money = %money.sort.map: # 'coins' sorts before 'notes'
-> ( :key($type), :value(%records) ) {

  # sort by the numeric part of the key
  my @sorted = %records.sort( +*.key.match(/^\d+/) );

  slip

      :$type xx *
    Z
      ( 'subtype' X=> @sorted».key   )
    Z
      (   'value' X=> @sorted».value )
}

你可以.sort».kv.map: -> ($type, %records) {…}

如何在功能上将嵌套哈希转换为记录列表？

1 个答案: