Текст пока отсутствует.

Perl
sub new()
{
	return bless [[], []], shift;
}

Perl
sub copy()
{
	my $self=shift;
	my $copy=Palindrome->new;
	@{$copy->[$_]}=@{$self->[$_]} for 0, 1;
	return $copy;
}

Perl
sub totalWords()
{
	my $self=shift;
	return @{$self->[0]}+@{$self->[1]};
}

sub isPalindrome()
{
	my $self=shift;
	my $string=join '', @{$self->[0]}, @{$self->[1]};
	return $string eq reverse $string;
}

sub toString()
{
	my $self=shift;
	return join ' ', @{$self->[0]}, @{$self->[1]};
}

Perl
sub quality()
{
	my $self=shift;
	my %words;
	$words{$_}++ for @{$self->[0]}, @{$self->[1]};
	return (length join '', keys %words)/$self->totalWords;
}