Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Re: (Golf) Patriotic Golf

by suaveant (Parson)
on Sep 18, 2001 at 00:13 UTC ( [id://112946]=note: print w/replies, xml ) Need Help??


in reply to Re: (Golf) Patriotic Golf
in thread (Golf) Patriotic Golf

oooh, with some mods to yours... 
sub f{print(($/,"* "x5,'*',"="x15,$/," *"x5)x3,($/,"="x26,$/)x3)}
      123456789_123456789_123456789_123456789_123456789_12345678

[download]
58!

and it prints the same as the example

                - Ant
                - Some of my best work - Fish Dinner

Replies are listed 'Best First'.
Re: Re: Re: (Golf) Patriotic Golf
by dragonchild (Archbishop) on Sep 18, 2001 at 00:25 UTC
    Actually, it doesn't. 
    @s=('*'," *"x5,"="x15,$/);print((@s," *"x5,$/)x3,@s,($/,'='x26,$/)x3)

    [download]
    and that's a nice round 69! :)

    ------
    We are the carpenters and bricklayers of the Information Age.

    Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

[reply]
[d/l]
      sub f{print((($/,"* "x5,'*',"="x15,$/," *"x5)x4)[0..22],($/,"="x26,$/)
+x3)}
      123456789_123456789_123456789_123456789_123456789_123456789_1234
+567

      [download]
      67... and yours can go to 66... 
      print((@s=('*'," *"x5,"="x15,$/)," *"x5,$/)x3,@s,($/,'='x26,$/)x3)
123456789_123456789_123456789_123456789_123456789_123456789_123456

      [download]

                      - Ant
                      - Some of my best work - Fish Dinner

[reply]
[d/l]
[select]

In Section Meditations

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://112946]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2024-04-24 06:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found