Перейти к основному содержанию

Новости

Тема: [Perl 6] for (Прочитано 101 раз) предыдущая тема - следующая тема

  • inter 😎
  • [*][*][*][*][*]
  • Царь
[Perl 6] for
Цикл for.

Ссылки по теме:
Цикл for в Perl 6
https://docs.perl6.org/language/control#for
https://perl6advent.wordpress.com/2009/12/07/day-7-looping-for-fun-and-profit/

Примеры:
Обход массива
my @a = <alpha beta gamma delta>;
for @a {
    say $_;
}
то же самое:
.say for @a;
то же самое:
for @a -> $x {
    say $x;
}

Вывод сразу двух элементов на ряд:
for @a -> $x, $y {
    say "$x $y";
}

Объединение двух массивов:
for @array1 Z @array2 -> $one, $two { say $one, ' ', $two; }
Массивов может быть много:
for @one Z @two Z @three Z @four -> $one, $two, $three, $four {
    say $one, ' ', $two, ' ', $three, ' ', $four;
}

Обход с индексом шага. Вам нужна функция enumerate из Python 3? Делайте так:
for ^Inf Z @array -> $index, $item { say $index, ' ', $item; }
Или добавляйте индекс вот так:
for ^@array.elems Z @array -> $index, $item { say $index, ' ', $item; }
То же самое (элегантное решение):
for @array.kv -> $index, $item { say $index, ' ', $item; }

Обход хеша:
my %h = alpha => 'a', beta => 'b', 
        gamma => 'c', delta => 'd';

for %h.kv -> $greek, $latin {
    say "$greek=$latin";
}

С проверкой типа:
for 1..5 -> Int $i {
    say $i;
}

С "распаковкой аргумента"
my @itemlist = (
    { book => {author => 'Пушкин А. С.', title => 'Сказка о попе и ...'}, count => 1, tags => <Поп Балда попадья черти> },
    { book => {author => 'Гоголь Н. В.', title => 'Ночь перед ...'}, count => 1, tags => <Вакула Солоха Дьяк Чёрт> },
);

for @itemlist -> % (:%book (Str:D :$title, Str:D :$author), Int :$count,
                    :@tags ($first-tag, *@other-tags))
{
    say "$title, $author, $count, $first-tag, @other-tags[]";
}

Loop Phasers
see: https://docs.perl6.org/language/phasers#Loop_Phasers
Если у вас будет элемент с типом, отличимым от Int, то будет ошибка. FIRST сработает в начале, NEXT при каждом шаге цикла, LAST в конце, тем, кто знает английский это легко запомнить.
my @a2 = 1..Inf;
my $s = '-' x 10;
for @a2[^5] -> Int $i {
    FIRST { say "Поехали!\n{$s}"; }
    say $i;
    NEXT { say $s; }
    LAST { say 'Полёт завершён!'; }
}

next, redo, last
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).
}

read-write
my @foo = 1..3;
for @foo <-> $_ { $_++ }
say @foo; # [2, 3, 4]

default values
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
  • Последнее редактирование: 16 Январь 2018, 19:36:45 by inter 😎