Hi All,
And it even gets more interesting.
It even works with Associative Arrays (Hashes), which I adore!
Interesting how associative arrays don't print in order that they
were entered into the array.
<code>
#!/usr/bin/perl6
my @x = ( "a", "b", "c", "d" );
print "loop of \@x\n";
for @x.kv -> $index, $value {
print " Line no. <" ~ ($index + 1) ~
"> has an index of <$index> and a value of <$value>\n"; }
print "\n";
my %y = ( 'aa'=>"AA", 'bb'=> "BB", 'cc'=>"CC", 'dd'=>"DD" );
print "loop of \%y\n";
for %y.kv -> $key, $value {
print " \%y has an key of <$key> and a value of <$value>\n"; }
print "\n";
</code>
./LoopIndexTest.pl6
loop of @x
Line no. <1> has an index of <0> and a value of <a>
Line no. <2> has an index of <1> and a value of <b>
Line no. <3> has an index of <2> and a value of <c>
Line no. <4> has an index of <3> and a value of <d>
loop of %y
%y has an key of <cc> and a value of <CC>
%y has an key of <dd> and a value of <DD>
%y has an key of <bb> and a value of <BB>
%y has an key of <aa> and a value of <AA>
