From @masak

<masak> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<masak> a slightly elongated Beethoven's fifth :P
<tadzik> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<tadzik> BOARing!
<masak> huh!? the *same*?
<tadzik> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<tadzik> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<masak> something's wrong.
<PerlJam> seriously so
<tadzik> either roll's broken, or we're VERY lucky :)
* masak submits rakudobug
<tadzik> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<masak> I can't get that jingle out of my head now. make it stop! :P
<PerlJam> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<PerlJam> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<PerlJam> rakudo​: say <ba da dup dee doodie>.roll(5).join(' ') ~ '!'
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<p6eval> rakudo 6ae3c9​: OUTPUT«ba ba ba ba da!␤»
<masak> the random number seed doesn't get randomized.
<masak> it should.

From @pmichaud

Now fixed in 72cbadc34cf5cdcb09f8d62a763ede606630f852.

  $ ./perl6 -e 'say ~(1..10).pick(5)'
  2 7 3 8 5
  $ ./perl6 -e 'say ~(1..10).pick(5)'
  10 1 7 6 3
  $ ./perl6 -e 'say ~(1..10).pick(5)'
  9 7 4 1 3

Now we just need some (portable) way to test for this regression in the
future.

Pm

@pmichaud - Status changed from 'new' to 'open'

From @kyleha

I didn't understand at first that the problem is that the random number generator isn't seeded
(ON STARTUP). The best way I can think to test this is to run a separate perl6 process that
executes the code, and then the test script can read and interpret what that separate perl6 spits
out. I haven't done that because it's such a heavyweight solution, bu I have yet to think of
anything better.

From @FROGGS

Hi, what about​:

my $a = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};
my $b = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};
my $c = qqx{$*EXECUTABLE_NAME -e "print ~(1..10).pick(5)"};

ok $a != $b || $b != $c, 'yay';

From @FROGGS

Test for it is here​:
https://github.com/perl6/roast/blob/master/S32-list/roll.t#L124

From @FROGGS

Can be closed IMO.

@moritz - Status changed from 'open' to 'resolved'