Amazing Nerdiness

I was listening to Tom Lehrer's "Silent E" (one of my favorites; I'm always happy when that pops up on my iPod), and decided to figure out how many pairs of words differ only by a trailing 'e'.

So I whipped up this nerdstrosity. I felt I had to share:

perl -e 'my %words = (); my @ewords = (); 
while (<>) {
    chomp();
    $words{$_} = 1; 
    push(@ewords, $_) if (/e$/);
} 
foreach my $eword ( @ewords ) { 
    (my $noe = $eword) =~ s/e$//; 
    if ( defined($words{$noe}) ) { 
        print "$noe -> $eword\n";  
    }  
}' /usr/share/dict/words

Things I've Learned, #1751

If you review your Spam/Junk email folder regularly, sort by sender -- it groups together (and hence allows you to easily skip over) the repeated spam. And there's LOTS of repeated spam (in my spam folder, anyway).

(This does require that you either pick a date range -- or otherwise look only at messages that have arrived since your last review; or move everything you've review somewhere else after the review.)