perl6 Каков наилучший способ сопоставить любую группу слов?

Question

Я пытаюсь найти простой способ сопоставить любую группу слов. Я использую цикл for, но есть ли более простой способ?

my @a=<a b c d e f>; 
my $x="a1234567"; 
say $x ~~ m/ @a.any /; 

Он возвращает False. Есть ли способ заставить его работать? Благодарю.

Answer 1

my @a = <a b c d e f>; 
my $x = "a1234567"; 
say $x ~~ /@a/; 

/@a/ такое же, как /| @a/, который является самым длинным чередование. Для чередования вы можете использовать /|| @a/.