From @masak

<masak> rakudo​: my @​a = 1; for 1..10 { my $last = @​a[*-1]; say $last;
push @​a, (sub ($s) { $s + 1 })($last) }; say @​a.perl
<p6eval> rakudo df38ac​: OUTPUT«[1]␤»
<masak> could somebody confirm to me that this is not expected behaviour?
<masak> I expect [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
<sorear> what's with the say $last?
<masak> it doesn't print.
<masak> it's as if the loop doesn't run.
<masak> rakudo​: my @​a = 1; for 1..10 { my $last = @​a[*-1]; say $last;
push @​a, $last + 1 }; say @​a.perl
<p6eval> rakudo df38ac​: OUTPUT«1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤[1, 2, 3, 4, 5, 6,
7, 8, 9, 10, 11]␤»
* masak submits rakudobug

From @coke

On Thu Aug 26 16​:32​:05 2010, masak wrote​:

<masak> rakudo​: my @​a = 1; for 1..10 { my $last = @​a[*-1]; say $last;
push @​a, (sub ($s) { $s + 1 })($last) }; say @​a.perl
<p6eval> rakudo df38ac​: OUTPUT«[1]␤»
<masak> could somebody confirm to me that this is not expected
behaviour?
<masak> I expect [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
<sorear> what's with the say $last?
<masak> it doesn't print.
<masak> it's as if the loop doesn't run.
<masak> rakudo​: my @​a = 1; for 1..10 { my $last = @​a[*-1]; say $last;
push @​a, $last + 1 }; say @​a.perl
<p6eval> rakudo df38ac​: OUTPUT«1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤[1, 2, 3,
4, 5, 6,
7, 8, 9, 10, 11]␤»
* masak submits rakudobug

This works now​:

10​:24 < [Coke]> rakudo​: my @​a = 1; for 1..10 { my $last = @​a[*-1]; say
$last;
  push @​a, (sub ($s) { $s + 1 })($last) }; say @​a.perl
10​:24 <+p6eval> rakudo 38165a​:
OUTPUT«1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤Array.new(1, 2, 3,
  4, 5, 6, 7, 8, 9, 10, 11)␤»

Needs tests.
--
Will "Coke" Coleda

The RT System itself - Status changed from 'new' to 'open'

From @timo

added a slightly modified version of that code to roast in 7bcdd2b.

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