P06 - 判断一个列表是否为回文。
作者:Ryan Connelly
示例
> say palindromic(<a b c d e>); False > say palindromic(<a b c b a>); True
源代码: P06-topo.pl
use v6;
sub palindromic(@list)
{
@list ~~ @list.reverse.list;
}
say palindromic(<a b c d e>);
say palindromic(<a b c b a>);
Perl 6 示例