8

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

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

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

鉴于上述情况,

%a.keys;

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

%a.rand;

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

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

4

2 回答 2

12

使用pickor roll,例如

%a.keys.pick
于 2016-01-30T04:26:56.650 回答
9

与往常一样,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
于 2016-02-02T13:39:43.500 回答