Semordnilap: Difference between revisions

=={{header|Perl 6}}==

{{works with|rakudo|2015-10-26}}

<lang perl6>my $words = set slurp("unixdict.txt").lines;

my @sems = gather for $words.flat -> $word {

my $drow = $word.key.flip;

take $drow if $drow ∈ $words and $drow lt $word;

}

say $_ ~ ' ' ~ $_.flip for @sems.pick(5);</lang>

{{out}}

<pre>abut tuba

avid diva

bard drab

loot tool

part trap</pre>