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 

如果感興趣的子串有固定的長度，你也可以捕捉重複整體並檢查其長度，避免創建子匹配。