Odd words: Difference between revisions
Content added Content deleted
m (added whitespace and wording to the task's preamble, added a working URL, added related tasks.) |
|||
Line 187: | Line 187: | ||
13: supervene -> spree |
13: supervene -> spree |
||
14: terminable -> trial |
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> |
</pre> |
||