Perl实例---构造回文

Posted 2021-05-22 EasyPerl

把相同的词汇、句子或字符串，在文中调换位置或颠倒过来，产生首尾回环的结构，叫做回文。例如：知难而退，退难而知

为了形成回文结构，可以通过在字符串前增加字符的方式来构造。例如序列：AACTCAAA，通过在前面增加A碱基，即可形成回文：AAACTCAAA。

解题思路：

我们需要在字符串前面加字符来构造回文， 那么我们可以反向的， 也就是在字符串结尾依次删除字符， 来判断是否回文， 这样可以得到所需添加的所有字符。

my $str = 'atacg';

由于我们每次删除一个字符， 都需要来判断是否回文， 因此我们把这个判断过程独立出来， 单独写成一个方法。

sub is_hui{ my $str = shift; my @str = split '', $str; my @re_str = reverse @str; for my $s(@str){ my $ss = shift @re_str; if($s ne $ss){ return 0; } } return 1;}

现将字符串切割成字符数组

my @strs = split '', $str;

定义一个数组， 用来按顺序记录被删除的字符

my @poped;

循环操作， 每次删除最后面一个字符， 存入@poped数组， 然后测试是否是回文， 如是回文， 则依次在左侧增加删除的元素即成回文了， 如不是则依次继续循环：

while(1){ my $poped = pop @strs; my $str_tmp = join '', @strs; push @poped, $poped;

if(is_hui($str_tmp)){ my $pre = join '', @poped;    print "$pre$str\n"; exit; }}