论坛 › Perl › perl回文数解析，比C容易多了

西大 发表于 2015-12-28 07:25:35

perl回文数解析，比C容易多了

#!/usr/bin/perl -w
use v5.10;
@array = split "", shift @ARGV;
@array_1 = @array;
@array_2 = reverse @array[($#array+2)/2..$#array];
print "Array: @array\n";
print "@array_1\n";
print "@array_2\n";
　　就是有一点，下标不好算！

查看完整版本: perl回文数解析，比C容易多了