Search Results

Perl solution -



$
$
$ perl -lne '$x=$_ if /^[^i]+$/i && length($_)>length($x);
END {print $x}' /usr/share/dict/words
regeneratoryregeneratress
$
$


tyler_durden

awk '{for(i=0;++i<=NF;){if($i!~"i")a[$i]=length($i)}}END{for(i in a){if(a[i]==max){b[i]=i};if(a[i]>max){max=a[i];delete b;b[i]=i}};for(i in b){print i}}' file
11PM here , maybe somebody else can...