Well, if you say so.
Code:

Function s($)
Dim $_, $0, $1
ReDim $s[($+1)*$+$]
$s[0] = " "
For $_ = 1 to $
$s[0] = W + $s[0] + B
Next
For $_ = 1 to Ubound($s)
$ = Split($s[$_-1]," ")
$0 = Right($[0],1)
$1 = Left($[1],1)
Select
Case InStr($[1],B)=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 InStr($[1],B) = 0) ;W^
$s[$_] = Left($[0],-2) + " " + $0 + W + $[1]
Case $0 = W AND ( InStr($[0],B)=0 OR InStr($[1],B)=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 = kixgolf_shuttle.kix

Computer
OS = Windows XP Professional
CPU = Intel(R) Pentium(R) 4 CPU 3.00GHz
Speed = 2992 MHz
Memory = 512 MB

KiXGolf Scoring Engine
Scoring Engine = 3.2

KiXtart Golf Score
Tournament = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 07:13:36.218
Processing End = 2006/09/18 07:13:36.296
Duration = 0000/00/00 00:00:00.077
KiXGolf Score = 430

Thank you for participating in KiXtart Golf!


It is just that these things were so easy.