[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

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



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@_

Three strokes less:

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

The behaviour is slightly different; it waits an additional second before
printing the final new line.

Abigail

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