一个快速且希望简单的问题:
我需要从一组给定的哈希键中随机选择的方法。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)]
,但希望有更简单的东西。
与往常一样,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