yay, obviously

2 more makes 405 :

Code:
 function s($)
dim $_, $0, $1, $2
redim $s[$*($+2)]
$s[0] = " "
for $_ = 1 to $
$s[0] = W+$s[0]+B
next
for $_ = 1 to $*($+2)
$ = split($s[$_-1])
$0 = right($[0],1)
$1 = left($[1],1)
$2 = instr($[1],B)
select
case $2 and $1=W ;^B
$s[$_] = $[0]+B+$1+" "+right($[1],-2)
case ($0=B and $1=B and instr($[0],W)) or ($0=B and $2=0) ;W^
$s[$_] = left($[0],-2)+" "+$0+W+$[1]
case $0=W and (instr($[0],B)=0 or $2=0) ;W->
$s[$_] = left($[0],~)+" W"+$[1]
case 1 ;<-B
$s[$_] = $[0]+"B "+right($[1],~)
;endselect
;next
endfunction



Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version = 4.53
KiXforms Version =
KiXGolf Script = KIXGOL~1.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.2

KiXtart Golf Score
Tournament = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 13:07:51.812
Processing End = 2006/09/18 13:07:52.265
Duration = 0000/00/00 00:00:00.453
KiXGolf Score = 405

Thank you for participating in KiXtart Golf!



Edited by Jochen (2006-09-18 01:10 PM)
_________________________