清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>
#!/usr/bin/env perl6 use v6; my \stdin = $*IN; my Int $count = +stdin.get(); for ^$count { my Str $str = stdin.get(); while $str.chars > 0 { last unless $str ~~ s:g/[ \[ \] || \( \) ]+//; } say $str.chars ?? "No" !! "Yes"; }