Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Re: (Golf) Let's go bowling

by dragonchild (Archbishop)
on Aug 09, 2001 at 01:51 UTC ( #103248=note: print w/replies, xml ) Need Help??

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

I'd hope it could be improved. It doesn't work too well. As is, it doesn't run. By changing the map{}@_; to @b=@_;map{}@b; and all the references to $_[] to $b[], it runs, but gives the wrong answers. It looks neat, though!

/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 rchiav (Deacon) on Aug 09, 2001 at 02:13 UTC
    define "doesn't work"? it ran with many test cases for me..

    update: downloaded my exact code posted here and ran it with the following games..

    my @b = qw(X X X X X X X X X X 7 2); [rchiav@aps:/home/rchiav]$ score score is 286 my @b = qw(X X X X X X X X X X X X); [rchiav@aps:/home/rchiav]$ score score is 300 my @b = qw(X 9 / X 9 / X 9 / X 9 / X 9 / X); [rchiav@aps:/home/rchiav]$ score score is 200 and the actual example given in the description.. my @b = qw(5 / 6 3 X X 7 0 4 3 X 4 / 8 1 3 / 6); [rchiav@aps:/home/rchiav]$ score score is 146
    If you could, please explain to me what's "not working".
      I bet that you are running 5.6.x and the code is failing to run in 5.005_03. The reason is that the aliasing was a little more aggressive in 5.005_03.

      Trust me. This is a bug I have hit quite often in golf.

      (BTW the current leader on the score-board is chipmunk.)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://103248]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2017-02-26 22:36 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (376 votes). Check out past polls.