my @a = < alpha beta gamma delta >;
for @a {
say $_;
}
say '';
.say for @a;
say '';
for @a -> $x {
say $x;
}
say '';
for @a -> $x, $y {
say "$x $y";
}
say '';
my %h = alpha => 'a', beta => 'b',
gamma => 'c', delta => 'd';
for %h.kv -> $greek, $latin {
say "$greek=$latin";
}
say '';
for 1..5 -> Int $i {
say $i;
}
say '';
my @itemlist = (
{ book => {author => 'Пушкин А. С.', title => 'Сказка о попе и ...'}, count => 1, tags => qw|Поп Балда попадья черти| },
{ book => {author => 'Гоголь Н. В.', title => 'Ночь перед ...'}, count => 1, tags => qw|Вакула Солоха Дьяк Чёрт| },
);
for @itemlist -> % (:%book (Str:D :$title, Str:D :$author), Int :$count,
:@tags ($first-tag, *@other-tags))
{
say "$title, $author, $count, $first-tag, @other-tags[]";
}
# see: https://docs.perl6.org/language/phasers#Loop_Phasers
say '';
my @a2 = 1..Inf;
my $s = '-' x 10;
for @a2[^5] -> Int $i {
FIRST { say "Поехали!\n{$s}"; }
say $i;
NEXT { say $s; }
LAST { say 'Полёт завершён!'; }
}
say '';
my @q = 1,3...Inf;
for @q {
say $_;
# You can...
next if $_ == 3; # Skip to the next iteration (`continue` in C-like languages).
redo if $_ == 4; # Re-do the iteration, keeping the same topic variable (`$_`).
last if $_ > 5; # Or break out of a loop (like `break` in C-like languages).
}
say '';
my @foo = 1..3;
for @foo <-> $_ { $_++ }
say @foo; # [2, 3, 4]
say '';
my @list = 1, 2, 3, 4;
for @list -> $a, $b = 'N/A', $c = 'N/A' {
say "$a $b $c"
}
# 1 2 3
# 4 N/A N/A
