Re: [FWP] fwp-digest V1 #109 -Reply

[Aaron Crane <aaron.crane@pobox.com>]

John Porter <jdporter@min.net> writes:
>     do{$j=$_;formline('@>>',$_*$j)for 1..9;$^A.="\n";}for 1..9;
>     print $^A;

Let's shrink it just a little (to be fair).

    do{$j=$_;formline('@>>',$_*$j)for 1..9;$^A.="\n"}for 1..9;print$^A

That's still 66 characters -- way too many.  This has only 50, and it even
compiles under -w and use strict:

    for(1..9){$,=$_;printf"%3d",$_*$,for 1..9;print$/}

-- 
Aaron Crane   <aaron.crane@pobox.com>   <URL:http://pobox.com/~aaronc/>

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