not too much but 2 strokes less with mine:
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_ts.kix
Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Top Secret
Processing Start = 2007/08/10 11:22:11.265
Processing End = 2007/08/10 11:22:11.328
Duration = 0000/00/00 00:00:00.063
KiXGolf Score = 405
Thank you for participating in KiXtart Golf!
Code:
function a($b, $c, $i, $d)
while $i
dim $, $e, $f, $g, $h, $j, $k, $n
for $ = 1 to $i^0
if $f < $b
$j = substr($i,$,1)
$e = lcase($j)
if $e>` & $e<{
$f = 1 + $f
$n = split(join($n) + ' ' + $j)
else
$g = 1 + $g
$h = ´ + $h + $ + ´
endif
endif
next
$e = left($i,$f+$g)
$i = right($i,-$f-$g)
for each $ in split($c,",")
if 0+$ <= $f
$k = split(join($k) + ' ' + $)
endif
next
for $g = 1 to $e^0
if instr($h,´+$g+´)
$a = $a + substr($e,$g,1)
$j = 1 + $j
else
$ = 1 + $
$a = iif($d=E, $a+$n[$k[$]], $a+$n[ascan($k,$g-$j)])
endfunction