random - 如何在 Perl 6 中获得随机选择的哈希键？

Question

一个快速且希望简单的问题：

我需要从一组给定的哈希键中随机选择的方法。perl6.org 文档关于rand和Hash都没有提供很多提示。

my %a = 1,2,3,4,5,6;

鉴于上述情况，

%a.keys;

返回(5 1 3)，如果我只是尝试

%a.rand;

我得到一个伪随机浮点数，而不是任何一个键。

我最终拼凑起来%a.keys[Int(%a.elems.rand)]，但希望有更简单的东西。

Answer 1

使用pickor roll，例如

%a.keys.pick

Answer 2

与往常一样，Christoph 的回答是正确的（他非常了解 Perl 6）。但是，我想我会详细说明一下pick，一开始roll很容易混淆。

---

如果您只想要一个随机项，那么pick和看起来相同并且可以互换使用，因为它们都默认返回原始列表或数组中的一项：roll

my $rand-keyA = %a.keys.pick;

my $rand-keyB = %a.keys.roll;

---

但是，这样想：意思是“由于这个容器里
pick只有N个东西，我一次只能捡N个东西”。
roll意思是“我有一个N面骰子，我可以掷多少次就想多少次。”

my %a = 1,2,3,4,5,6;  # { 1 => 2, 3 => 4, 5 => 6 }
                      # (i.e. keys are 1, 3, and 5)

say %a.keys.pick(2);  # (5 3)
say %a.keys.pick(2);  # (3 1)
say %a.keys.pick(5);  # (3 5 1) no more, because there were only three to pick from
say %a.keys.pick(10); # (3 1 5) 

say %a.keys.roll(5);  # (1 5 1 5 3)           as many "rolls" as you request
say %a.keys.roll(10); # (5 5 1 1 5 5 3 1 3 1) 

---

pick(*)是一种从数组创建随机重新排序列表的简单方法，而无需知道它有多少元素：

my @array = <foo bar baz foobar>;

@array.pick(*); # (bar foobar baz foo)

---

roll(*)是一种创建无限列表的简单方法，其元素是从原始数组中随机选择的：

my @rolls = @array.roll(*);

say @rolls[0];         # foobar
say @rolls[10];        # bar
say @rolls[351];       # baz
say @rolls[19123];     # foobar
say @rolls[1000000];   # bar
say @rolls[1000001];   # bar
say @rolls[1000002];   # foo