Here is my 156 code

Code:

function a($s)
	dim $,$t,$y,$z
	while $s
		$ = left($s,1)
		$s = right($s,~)
		if $>#
			$a = (1+$y+$z)*(10*($=x)+$+($='/')*(10-$t)) + $a
			$z = ($t=x)*$y
			$y = ($=x | $='/')*($s<#)
			$t = $
		;endif
	;loop
endfunction

And here is a brief explanation of it

Quote:

Since we only care about the total score, we don't need to calculate each frame and then add those together. Instead we can keep a running total following the following idea:

Depending on the previous scores, we will add the current score
-once, if no spares or strikes carry over
-twice, if only one spare or strike carries over
-3 times, if a strike and either another strike or spare carries over

So we loop through each character in the string of scores passed in. If the character is not a space, i.e. $># then process...

First, we calculate the total for this score

$a = (1+$z+$y)*(10*($=x) + $ + ($='/')*(10-$t)) + $a

(1+$z+$y)
This is the multiplier. It will always be at least 1

10*($=x)
If it's a strike, then the score is 10.

$
if $ is a number, then just add the number itself. If it's not a number, then it will evaluate to 0

($='/')*(10-$t)
If it's a spare, then the score is 10. BUT the spare means the current score PLUS the last one is 10, so we need to subtract
the previous score from 10

Now multiply the multiplier times the score, add to our current total and move on.

Next, we figure out the multiplier for the next round

$z= ($t=x)*$y
If the previous score was a strike and it we counted it this round, we'll count it next round

$y = ($=x | $='/')*($s<#)
if this score was a strike or a spare, and not in the 10th frame, then count it. If it is not in the 10th frame
then $x will begin with a space and therefore be less than #.

Store the current score in $y which will be needed if the next score is a spare, as well as for the next $z assignment.

$t=$
Set $t to the current score which we may need in the next round

function a($x) dim $v, $b, $ while $x $ = left($x,1) $x = right($x,~) if $>! $v = ($=X)*10 + $ + ($="/")*(10-$v) $a = $a + ($b-($b>1)+1)*$v $b = ($b>1) + (2*($=X)^$="/")*($x<!) endfunction

function a($z) Dim $o,$j,$,$l,$v[22],$d[22] $o=split($z," ") $j=join($o,"") for $=1 to 22 $l=substr($j,$,1) $d[$]=$l $v[$]=iif($l=X,10,iif($l="/",10-$v[$-1],cint($l))) $a=$a+$v[$] next for $=1 to len($j)-len($o[9]) if $d[$]="/" $a=$a+$v[$+1] else if $d[$]=X $a=$a+$v[$+1]+$v[$+2] ; endif ; endif ; next endfunction

function a($i) dim $1,$ $=join(split($i),'') $1=left($,1) $a=substr($,3,1) $=substr($,2,1) if $ $a=($a='/')*(10-$)+$+iif($1=x | $='/',10*(1+(x=$a)+($=x))+$a,$1)+a(right($i,(x=$1)-3)) endfunction

function a($x) dim $v, $b, $ while $x $ = left($x,1) $x = right($x,~) if $>! $v = ($=X)*10 + $ + ($="/")*(10-$v) $a = $a +($b+($b<2))*$v $b = ($b>1) + (2*($=X)^$="/")*($x<!) endfunction

function a($) dim $s[9], $c, $e, $k, $l, $m, $i $s = Split($," ") for $i = 9 to 0 step -1 $k = Substr($s[$i],1,1) $l = Substr($s[$i],2,1) if $i = 9 if $k = "X" $m = Substr($s[$i],3,1) if $m = "/" $a = 20 else $a = 10 + d($l) + d($m) endif else if $l = "/" $m = Substr($s[$i],3,1) $a = 10 + d($m) else $a = 0 + d($k) + d($l) endif endif $c = $k $e = $l else if $k = "X" $a = $a + d($k) + d($c) + d($e) $e = $c $c = $k else if $l = "/" $a = $a + d($l) + d($c) $c = $k $e = 10 - $k else $a = $a + d($k) + d($l) $c = $k $e = $l endif endif endif next endfunction ;! function d($) $d = iif(InStr($, "X") or InStr($, "/"),10,iif(InStr($, "-"),0,$)) endfunction

function a($x) dim $v, $b, $ while $x $ = left($x,1) $x = right($x,~) if $>! $v = ($=X)*10 + $ + ($="/")*(10-$v) $a = $a + ($b+($b<2))*$v $b = ($b>1) + instr("/X",$)*($x<!) endfunction

function a($x) dim $v, $b, $ while $x $ = left($x,1) $x = right($x,~) if $>! $v = ($=X)*10 + $ + ($="/")*(10-$v) $a = $a + ($b+($b<2))*$v $b = instr("/X",$)*($x<!) + $b/2 endfunction

function a($x) dim $v, $b, $ while $x $ = left($x,1) $x = right($x,~) if $>! $v = ($=X^$="/")*10 + $ - ($="/")*$v $a = $a + ($b+($b<2))*$v $b = instr("/X",$)*($x<!) + $b/2 endfunction

function a($) dim $v, $b, $x, $c while $ $x = left($,1) $ = right($,~) if $x>! $c = instr("/X",$x) $v = ($c>)*10 + $x - ($c=1)*$v $a = $a + ($b+($b<2))*$v $b = $c*($<!) + $b/2 endfunction

Private Round Scoring Particip. Name Score Points Points Total Jochen 155 5 1 6 Maciep 156 4 1 5 Jooel 181 3 1 4 Citrix 265 2 1 3 BradV 417 1 1 2
Public Round Scoring Bonus Name Score Points Points Total Jooel 149 5 1 6 Jochen 150 4 1 5 Maciep 156 3 0 3 Citrix 265 2 0 2 BradV 417 1 0 1
Final Scoring Jochen 11 Jooel 10 Maciep 8 Citrix 5 BradV 3