use Perl

• Overwriting the array in place (Score:2)

  by Juerd (1796)

  @array.=pick(*);

  This might even be optimized and actually shuffle the elements within the array.
  • Re: (Score:1)

    by afbach (7051)

    Trying that in the hangman code:
    @items.=pick(*);

    gets:
    Null PMC access in find_method()

    if I do either (after:
    my $i = @items.elems;
    ):
    @items.=pick($i);

    or:
    @items = @items.pick($i);

    I get:
    Cannot assign to readonly variable

    Doing:
    return @items.pick($i);

    works though ('*' again gets the Null PMC).
    • Re: (Score:2)

      by Ovid (2709)

      That pick seems to work for me:

      ~ $ perl6 -e 'my @items = ^10; @items .= pick(*); @items.perl.say'
      [2, 8, 9, 4, 1, 5, 3, 7, 6, 0]
      ~ $ perl6 -e 'my @items = ^10; my $i = @items.elems; @items .= pick(*); @items.perl.say'
      [6, 2, 7, 1, 4, 8, 9, 5, 3, 0]
      ~ $ perl6 -e 'my @items = ^10; my $i = @items.elems; @items .= pick($i); @items.perl.say'
      [7, 8, 5, 1, 2, 0, 4, 3, 9, 6]
      ~ $ perl6 -v
      This is Rakudo Perl 6, revision 35858 built on parrot 0.9.0-devel
      for darwin-2level.
      
      Copyright 2006-2008, The Perl Foundation.

      If you up
      • Re:Overwriting the array in place (Score:1)

        by afbach (7051) on 2009.01.21 11:35 (#66991)

        Yeah, I was able to get it to work from the command line yesterday too, so I'm guessing it's got to do w/ @items being a param to a method, maybe?, as in hangman.pl. Just try your new shuffle in there. I was working on making up a smaller test case. I use a nightly fetch of parrot/rakudo.

        Reply to This

        Parent

        • Re: (Score:1)

          by afbach (7051)

          Good news! as of Rakudo Perl 6, revision 35960 built on parrot 0.9.0-devel:
          return @items.pick(*);

          works, at least on x86 Leopard box.