Perl6 Bracket Match

大佬教程收集整理的这篇文章主要介绍了Perl6 Bracket Match，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!/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";
}

大佬总结

以上是大佬教程为你收集整理的Perl6 Bracket Match全部内容，希望文章能够帮你解决Perl6 Bracket Match所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。