Perl6 dizilerinde neden “her” yöntemi yok?

Bazen Perl 6 REPL'de bir yöntem çağrısı zinciri yazmaya başlayacağım, örneğin:

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

... ve son listeyle ne yapmak istediğimin her öğeyi kendi satırına yazdırmak olduğunu anlıyorum. Dizilerin bir eachyöntem gibi bir şey olmasını beklerdim, böylece zinciri bitirebilirim .each(*.say), ancak bulabileceğim bir yöntem yok. Bunun yerine satırın başına dönüp başımın başına gelmeliyim .say for. Düşüncelerimin akışını kesiyormuş gibi geliyor.

Bu küçük bir sıkıntı, ama bu kadar göze çarpan bir ihmal olarak bana çok kolay bir alternatif eksik olup olmadığımı merak ediyor. Aklıma gelen tek olanlar ».sayve .join("\n").sayancak (eğer doğru anlamak) eski bozuk elemanlarında çalışabilir ve ikincisi yapıları tek bir dize girdi listeye bağlı olarak, sorunsal olarak büyük olabilir ki.

.map(*.say)Yorumda yazdığınız gibi, REPL kullanırken sadece bir diğeri True değerleri olan bir çizgi oluşturur. .sinkSon harita ifadesinden sonra yöntemi çağırmayı deneyebilirsiniz .

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

Kendinizi yuvarlayabilirsiniz.

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

Eğer bunu beğendiyseniz, orada ilk CPAN modülü fırsatınız var.