blob: a1046fbf6cce5c5a17b9d36ef82a47968dff822c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw<pairs all any>;
use FindBin;
my $path=$ARGV[0]//($FindBin::Bin."/../words_alpha.txt");
open my $sfh, "<", ($FindBin::Bin."/../states.txt");
open my $wfh, "<",$path;
my @states=map { chomp; lc;} <$sfh>;
close $sfh;
my $longest="";
foreach(<$wfh>) {
chomp;
next unless length($_) % 2 == 0;
my @p=pairs split "", lc;
$longest= $_ if (all { my $i=join "", @{$_}; any {$_ eq $i} @states } @p) && length $_ > length $longest;
};
print "$longest\n";
close $wfh;
|
