Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Re: Re: Triangle Golf

by MeowChow (Vicar)
on Apr 25, 2001 at 22:10 UTC ( #75560=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: Triangle Golf
in thread Triangle Golf

Very nice paring down, I especially like the conversion from a greedy expression to the minimal one you use, in order to avoid defining $c. Further reduction gives:

perl -ln0e's/\s+/ /g;print$"x(40-($c=length$&)/2),$&while/.{0$c,}? |.* +/g' ...
61 chars of code plus 3 modifier chars.
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print


Comment on Re: Re: Re: Triangle Golf
Download Code
Re: Re: Re: Re: Triangle Golf
by petral (Curate) on Apr 26, 2001 at 21:27 UTC
    Much cleaner! Putting the increment back in and not skipping a line at the end yields a "more intresting"* result (63 chars):
    perl -ln0e's/\s+/ /g;print$"x(40-($c=2+length$&)/2),$&while/.{0$c,}? | +.+/g' a.txt w.txt a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a The same principle applies to any text file, basically splitting words only on spaces or new lines perl -ln0e's/\s+/ /g;print$"x(40-($c=2+length$&)/2),$&while/.{0$c,}? | +.+/g' w.txt a.txt The same principle applies to any text file, basically splitting words only on spaces or new lines a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
    (I know, I know. I'm the only one who could possibly still be interested at this point.)

    * update "more interesting" meaning more <|triangular|>  (than the original challenge).

    And, moving even deeper into 'useless use of code in void context':
    print($"x(40-($c=2+length$&)/2),$&),$c*=($c<80)while...
    will make triangles of files of any length (a step towards automated obfusification?).

    p

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://75560]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (13)
As of 2014-10-21 17:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (106 votes), past polls