Почему нет метода «каждый» в последовательностях Perl6?

Иногда я начинаю писать цепочку вызовов методов в Perl 6 REPL, например:

".".IO.dir.grep(...).map(...).

... и затем я понимаю, что я хочу сделать с окончательным списком печать каждого элемента в отдельной строке. Я ожидал бы, что у последовательностей будет что-то вроде eachметода, чтобы я мог закончить цепочку .each(*.say), но нет такого метода, который я мог бы найти. Вместо этого я должен вернуться к началу строки и подготовить .say for. Такое ощущение, что это нарушает поток моих мыслей.

Это незначительное раздражение, но это кажется мне таким вопиющим упущением, что я задаюсь вопросом, упускаю ли я какую-то легкую альтернативу. Единственное, о чем я могу думать, это ».sayи .join("\n").say, но первое может работать с элементами не по порядку (если я правильно понимаю), а второе создает единственную строку, которая может быть проблематично большой, в зависимости от списка ввода.

Как вы написали в комментарии, только другой .map(*.say)также создает строку со значениями True при использовании REPL. Вы можете попытаться вызвать .sinkметод после последнего оператора map.

".".IO.dir.grep({$_.contains('e')}).map(*.uc).map(*.say).sink

Вы можете свернуть свой собственный.

use MONKEY;

augment class Any 
{ 
    method each( &block )
    {
        for self -> $value { 
            &block( $value );
        }
    }
};

List.^compose;
Seq.^compose;

(1, 2).each({ .say });
(2, 3).map(* + 1).each({ .say });

# 1
# 2
# 3
# 4

Если вам это нравится, у вас есть возможность первого модуля CPAN .