История изменений
Исправление liaonau, (текущая версия) :
Не знаю на сколько в общем случае правильно, не уверен. Зато прикольно и коротко.
#!/usr/bin/perl
my $s = 'lolxafloluxff';
push @l, $s=~/(?=(.{$_}))/g for 1..length($s)/2;
map {$s=~s/$_//g if $s=~m/$_.*$_/} reverse @l;
print "$s\n";
Исходная версия liaonau, :
Не знаю на сколько в общем случае правильно, не уверен. Зато прикольно и коротко.
#!/usr/bin/perl
my $s = 'lolxafloluxff';
push @l, $s=~/(?=(.{$_}))/g for 1..length($s)/2;
map {$s=~s/$_/$1/g if $s=~m/$_.*$_/} reverse @l;
print "$s\n";