P is for Practical PerlMonks

Re: (Golf) Let's go bowling

by tachyon (Chancellor)
 on Aug 08, 2001 at 23:48 UTC ( #103196=note: print w/replies, xml ) Need Help??

in reply to (Golf) Let's go bowling

218, runs test suite :-) Thanks to dragonchild and nardo for filling me in on the real rules, not the rules as I saw them.

```print score(qw(5 / 6 3 X X 7 0 4 3 X 4 / 8 1 3 / 6)),"--> 146\n";
print score(qw(X X X X X X X X X X X X)), "--> 300\n";
print score(qw(0 / X 0 / X 0 / X 0 / X 0 / X 0 /)),"--> 200\n";
print score(qw(X 0 / X 0 / X 0 / X 0 / X 0 / X 0)),"--> 200\n";

sub score {
\$i=-1;\$f=\$t=1;\$b=0;for(@_){\$i++;\$o=\$_[\$i+1];\$d=\$_[\$i+2];
last if\$f>10;if(/X/){\$s=(\$d eq'/')?20:10+n(\$o)+n(\$d);}
elsif(/\//){\$s=10+n(\$o);\$t=1}else{\$s+=\$_;\$t^=1;\$t||next}
\$b+=\$s;\$f++;\$s=0;}sub n{\$v=pop;\$v=~/[X\/]/?10:\$v}\$b
}

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"\$'\$`\$\"\$\&"&ee&&y&srve&&d&&print

Create A New User
Node Status?
node history
Node Type: note [id://103196]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2017-12-11 15:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What programming language do you hate the most?

Results (305 votes). Check out past polls.

Notices?