perl6、素数を除いて1から10000回のマッチング方法は？

Question

素数以外の1〜10000の任意の場所にある文字列を照合する最も良い方法は何ですか？

say so "xyz" ~~ m/ <[x y z]> ** <[ 1..10000] - [ all prime numbers ]>/

ありがとう!!!

必ずしも

Answer 1

ない最良の方法（特に、それは部分マッチオブジェクトを10_000するまで作成されます）が、方法：

$ perl6 -e 'say "$_ ", so <x y z>.roll x $_ ~~ /^ (<[xyz]>) ** 1..10_000 <!{$0.elems.is-prime}> $/ for 1..10' 
1 True 
2 False 
3 False 
4 True 
5 False 
6 True 
7 False 
8 True 
9 True 
10 True 

関心のサブストリングが長さを固定している場合は、キャプチャすることができ繰返しを全体として行い、その長さをチェックし、サブマウントの作成を回避する。