Words from neighbour ones: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: sorry) |
|||
Line 572: | Line 572: | ||
interrupt philosoph prescript receptive telephone transcend transport transpose |
interrupt philosoph prescript receptive telephone transcend transport transpose |
||
</pre> |
</pre> |
||
=={{header|Perl}}== |
|||
<lang perl>#!/usr/bin/perl |
|||
use strict; # https://rosettacode.org/wiki/Words_from_neighbour_ones |
|||
use warnings; |
|||
@ARGV = 'unixdict.txt'; |
|||
my $skew = join '', map { s/^.{9}\K.+//r } my @words = grep length() > 9, <>; |
|||
my %dict = map { $_ => 1 } grep length == 10, @words; |
|||
my %seen; |
|||
my $nextch = '.{10}(\\w)' x 8; |
|||
while( $skew =~ /^(\w)(?=$nextch)/gms ) |
|||
{ |
|||
my $new = join '', @{^CAPTURE}, "\n"; |
|||
$dict{$new} and !$seen{$new}++ and print $new; |
|||
}</lang> |
|||
{{out}} |
|||
applicate |
|||
architect |
|||
astronomy |
|||
christine |
|||
christoph |
|||
committee |
|||
composite |
|||
constrict |
|||
construct |
|||
different |
|||
extensive |
|||
greenwood |
|||
implement |
|||
improvise |
|||
intercept |
|||
interpret |
|||
interrupt |
|||
philosoph |
|||
prescript |
|||
receptive |
|||
telephone |
|||
transcend |
|||
transport |
|||
transpose |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |