Again!

It happened again. Worth noting is one of the precepts given at the start of Accelerando:

Finally, expect one entirely new magical technology to come out of nowhere and sandbag everyone who wasn't watching the ball roughly every five years (1990's), three years (2000's), and then annually or faster (2010's).

Among other things. The linked document is worth reading. I find myself completely frustrated and stymied by this continually occurring phenom. Is it that I am being perceptive, or that the world is so predictable that everyone has these assumptions? The former seems arrogant, the latter seems wrong because day traders actually make a living (if it was true, everyone would have the knowledge or intuition they use to make money, therefore invalidating their approach).

It's enough to make me want to give up on the book, put it aside as something I'd like to write about, but I should dust it off later when I've had some time to reflect on it. That leaves me back at 0, instead of close to finishing.

I'm also not exactly dawdling with it. Between the last time this happened and today, I've made tremendous progress. Even if I'd finished in that period, the book would be in the middle of copyediting/edit-editing and I'd be equally screwed. Seems to me that I can't win this one.

#!/usr/bin/perl

use warnings;
use strict;
use List::Util qw/ shuffle /;

my @phrase = split //, qq/your text goes here/;
my @dict;
{ open F, "</usr/share/dict/words"; @dict = <F>; close F }
my %dhash = map { chomp $_; lc $_ => 1 } grep { length $_ < 18 } @dict;

print "starting run...\n";

ITERATOR: while (1) {
        my @victim = shuffle @phrase;
        my @words = split / /, join '', @victim;
        foreach my $word (@words) {
                next ITERATOR unless $dhash{ $word };
        }
        print +(join '', @victim).qq/\n/;
}

That is all. Comments welcome.