postpump post ....

631

Code:

Function s($x)
Dim $j,$
Dim $a[2*$x]
For $j = 0 to 2*$x
$a[$j] = $j-$x
Next

$s = d($s,$a)

For $ = 1 to $x
For $j = 1 to $
$a = c($j,$a)
$s = d($s,$a)
Next
$=$+($x>$)
For $j = -1 to -$ step -1
$a = c($j,$a)
$s = d($s,$a)
Next
Next
If $x MOD 2
For $ = 1 to $x
For $j = $ to $x
$a = c($j,$a)
$s = d($s,$a)
Next
$=$+($x>$)
If $ < $x
For $j = -$ to -$x step -1
$a = c($j,$a)
$s = d($s,$a)
Next
EndIf
Next
Else
For $j = 1 to $x
$a = c($j,$a)
$s = d($s,$a)
Next
For $ = 1 to $x
For $j = -$ to -$x step -1
$a = c($j,$a)
$s = d($s,$a)
Next
$=$+($x>$)
For $j = $ to $x
$a = c($j,$a)
$s = d($s,$a)
Next
Next
EndIf
$s=Split($s,a)
EndFunction

Function c($a,$)
$c = AScan($,$a)
$[AScan($,0)]=$a
$[$c]=0
$c = $
EndFunction

Function d($,$s)
If $
$d = $ + a
EndIf
For Each $ in $s
$d= $d + SubStr("W B",1+($=)+2*($>),1)
EndFunction

_________________________