Anonymous user
Odd words: Difference between revisions
→{{header|Phix}}
m (added whitespace and wording to the task's preamble, added a working URL, added related tasks.) |
|||
Line 187:
13: supervene -> spree
14: terminable -> trial
</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
@ARGV = 'unixdict.txt';
chomp( my @words = <> );
my %dict;
@dict{ grep length > 4, @words} = ();
for ( @words )
{
my $oddword = s/(.).?/$1/gr;
exists $dict{$oddword} and print " $_ $oddword\n";
}</lang>
{{out}}
<pre>
barbarian brain
childbear cider
corrigenda cried
gargantuan grata
headdress hades
palladian plain
propionate point
salvation slain
siltation slain
slingshot sight
statuette saute
supersede spree
supervene spree
terminable trial
</pre>
| |||