; begin Linear Pachinko
;!
function a($b)
    dim $c,$d,$
    $d=join(split($b,_),$)
    $=1
    while $d
        $c=$d
        $d=right($d,~)
        $=$+($d<'/')
        $a=$a+50*(2*($c<'/'|$*($c>='/'&$c<_))|$*($c>_))
        $=$c<'/'
    loop
    $a=$a/($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 11:21:28.187
Processing End   = 2007/10/15 11:21:28.187
Duration         = 0000/00/00 00:00:00.000
KiXGolf Score    = 167

Thank you for participating in KiXtart Golf!