The program to run

Once you add a little whitespace here and there, the block looks like this:

$c = '( +)';
s/(key)|eval/$1?"value":""/eg;
*y = [ split /(\W+)/, $_{t} ];
( $_ = eval ) =~ y/\n//d;
sub c { length };
for ( split $c ) {
    print @y
      if ( select( $/, $,, $<, .1 * rand ) || ( $y += $p++ + &c ) )
      ... ( substr( $y[&a], &p, 1 ) = chr 97 + ( ord( substr $y[&a], &p, 1 ) + c() ) % 26 );
}
sub p { $y % length $y[&a] }
sub a { $p % 3 * 2 }
print "\n";
study

• $_ is still 'eval join"",sort+keys%_'.
• The substitution changes keys into values, and wipes eval out of the string.
• So now $_ is the concatenation of all values of %_, with all \n removed, thanks to s///.
• In the meantime, @y received the list of words and non-words in $_{t}.
• Various subs (a, p, c) are defined as small helpers.

Previous | Next

Copyright © 2000-2001, Philippe "BooK" Bruhat.