http://www.perlmonks.org?node_id=103148


in reply to Re: (Golf) Let's go bowling
in thread (Golf) Let's go bowling

I can cut you down to 163 characters by doing standard golfings ($_=join',',@_;, for example). However, you get 189 if given ('X')x12. (I'm not doing much better, myself. *winces*

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

Replies are listed 'Best First'.
Re: Re: Re: (Golf) Let's go bowling
by nardo (Friar) on Aug 08, 2001 at 22:31 UTC
    you get 189 if given ('X')x12

    I think you copied my code wrong
    print &bowlscore(('X')x12), "\n";
    prints 300 on my machine.
[reply]
[d/l]
      You're right. I did copy it down wrong. However, you still fail on 
      qw(0 / X 0 / X 0 / X 0 / X 0 / X 0 /)
201 (should be 200)
qw(X 0 / X 0 / X 0 / X 0 / X 0 / X)
181 (should be 200)

      [download]

      ------
      /me wants to be the brightest bulb in the chandelier!

      Vote paco for President!

[reply]
[d/l]

In Section Meditations