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


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

This appears to fail on runs with a spare or strike in the bonus balls, e.g. 
qw(1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 X X 0) -> 75 should be 65
qw(9 0 9 0 9 0 9 0 9 0 9 0 9 0 9 0 9 0 9 / X) -> 111 should be 101
qw(X X X X X X X X X X X X) -> 330 should be 300
qw(0 / X 0 / X 0 / X 0 / X 0 / X 0 /) -> 210 should be 200

[download]
from my test suite.
--
Brovnik

In Section Meditations