7 lines
120 B
Raku
7 lines
120 B
Raku
while (<>) {
|
|
chomp;
|
|
my $r = reverse;
|
|
$seen{$r}++ and $c++ < 5 and print "$_ $r\n" or $seen{$_}++;
|
|
}
|
|
|
|
print "$c\n"
|