Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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


Comment on Re: (Golf) Let's go bowling
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2014-12-20 21:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (98 votes), past polls