Perl6 Bracket Match

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/env perl6

my stdin = $*IN;

my $count = ~stdin.get();

my %table = 93 => 91,41 => 40;

my @list = (91,40);

for ^$count {
    my $str = ~stdin.get();

    my @chars = $str.encode('ASCII')[0 .. * - 1];
    
    my @stack;

    for @chars -> $ch {
		if @stack ~~ 0 || ($ch (elem) @list) {
			@stack.push: $ch;
		} else {
			if @stack[* - 1] == %table{$ch} {
			@stack.pop();
			} else {
			say "No";
			exit;
			}
		}
    }
    say @stack ~~ 0 ?? "Yes" !! "No";
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!