Re: [FWP] Would you like to buy a vowel?

[yanick1@sympatico.ca]

On Fri, Mar 23, 2001 at 07:58:55PM +0200, Ilmari Karonen wrote:
> Okay, can anyone here shorten this JAPH?  Par is 113.  There's a trivial
> 7 stroke saving if you omit the final newline, but I'd rather keep it.
> 
> $|=@_=$_="\rJust another Perl hacker,\n";chop;s/${\(a..z)[rand 26]}/#/ig&&(@_=($_,@_))while/\w/;sleep print for@_

	112, but using a slightly different approach (and with the
chance to print a first line with a letter revealed):

$|++;$_="\rJust another Perl hacker,";s/\w/$&\b#/g;
s/(${\(a..z)[rand+26]}).#/$1/ig&&sleep print while/#/;die"\n";


`/anick

-- 
($_,@.)=split m<[\d=[\]]>,"Y..0e0t0 =a0n0o0t0h0e0r= [P0e0r0l] "
 .  "0h0a0c0k0e0r";          y|.    |.   |s  ;
for $0(1..23)  {  $_ .='.' x s|  (.)[.] $|$
                           +. shift@ .|ex|| '.'   } ;print;

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe