; begin Linear Pachinko
;!
function a($b)
    dim $c,$,$d
    $=join(split($b,_),$)
    while $
        $d=$c<'/'
        $c=$
        $=right($,~)
        $d=$d+($<'/')
        $a=$a+iif($c>_,$d,2*($c<'/'|$c<_&$d))
    loop
    $a=$a*50/($b^)
endfunction
;!
;!
; end Linear Pachinko

Running Test 1...Done 61
Running Test 2...Done 53
Running Test 3...Done 100
Running Test 4...Done 0
Running Test 5...Done 100
Running Test 6...Done 50
Running Test 7...Done 53
Running Test 8...Done 10
Running Test 9...Done 0
Running Test 10...Done 38
Your solution passed all tests

Your solution passed all tests

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_lp.kix

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Linear Pachinko
Processing Start = 2007/10/15 22:28:59.717
Processing End   = 2007/10/15 22:28:59.717
Duration         = 0000/00/00 00:00:00.000
KiXGolf Score    = 154

Thank you for participating in KiXtart Golf!

Congratulations to all participants

function a($b)
  dim $c,$,$d,$!
  $=join(split($b,_),$)
  while $
    $d=$c<'/'
    $c=$
    $=right($,~)
    $d=$d+($<'/')
    $!=$!+iif($c>_,$d,2*($c<'/'|$c<_&$d))
  ; loop
  $a=$!*50/($b^)
endfunction

function a($b)
    dim $c,$,$d
    $=join(split($b,_),$)
    while $
        $d=$c<'/'
        $c=$
        $=right($,~)
        $d=$d+($<'/')
        $a=$a+iif($c>_,$d,2*($c<'/'|($d>)))
    loop
    $a=$a*50/($b^)
endfunction