Permalink
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (8 sloc) 165 Bytes
#!./parrot nqp.pbc
# lists and for
plan(3);
my $list := (1,2,3);
my $indexer := 0;
for $list {
print("ok "); print($_); say(" checking loop via indices");
}