Pourquoi pas de méthode «each» sur les séquences Perl6?

Parfois, je vais commencer à écrire une chaîne d'appels de méthode sur Perl 6 REPL, comme:

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

... et puis je me rends compte que ce que je veux faire avec la liste finale, c'est imprimer chaque élément sur sa propre ligne. Je m'attendrais à ce que les séquences aient quelque chose comme une eachméthode pour pouvoir terminer la chaîne .each(*.say), mais il n'y a pas de méthode comme celle-là que je puisse trouver. Au lieu de cela, je dois retourner au début de la ligne et ajouter .say for. J'ai l'impression que ça brise le flux de mes pensées.

C'est une gêne mineure, mais cela me semble être une omission si flagrante que je me demande si je manque une alternative facile. Les seuls auxquels je peux penser sont ».sayet .join("\n").say, mais les premiers peuvent fonctionner sur les éléments dans le désordre (si je comprends bien) et les seconds construisent une seule chaîne qui pourrait être problématiquement grande, selon la liste d'entrée.

Comme vous l'avez écrit dans le commentaire, juste un autre .map(*.say)crée également une ligne avec des valeurs True lors de l'utilisation de REPL. Vous pouvez essayer d'appeler la .sinkméthode après la dernière instruction de mappage.

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

Vous pouvez rouler le vôtre.

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

Si vous aimez cela, il y a votre opportunité de module First CPAN ici.