Perché nessun metodo "ciascuno" sulle sequenze Perl6?

A volte inizierò a scrivere una catena di chiamate di metodo sul Perl 6 REPL, come:

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

... e poi mi rendo conto che quello che voglio fare con l'elenco finale è stampare ogni elemento sulla propria riga. Mi aspetto che le sequenze abbiano qualcosa come un eachmetodo in modo da poter terminare la catena .each(*.say), ma non esiste un metodo come quello che riesco a trovare. Invece devo tornare all'inizio della riga e anteporre .say for. Sembra che interrompa il flusso dei miei pensieri.

È un piccolo fastidio, ma mi sembra un'omissione così evidente che mi chiedo se mi manca qualche alternativa facile. Le uniche a cui riesco a pensare sono ».saye .join("\n").say, ma la prima può operare sugli elementi fuori ordine (se ho capito bene) e la seconda costruisce una singola stringa che potrebbe essere problematicamente grande, a seconda dell'elenco di input.

Come hai scritto nel commento, solo un altro .map(*.say)crea una riga con valori True quando si utilizza REPL. Puoi provare a chiamare il .sinkmetodo dopo l'ultima istruzione della mappa.

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

Puoi farlo tu stesso.

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

Se ti piace, c'è la tua prima opportunità del modulo CPAN proprio lì.