KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_ts.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 798 MHz
Memory           = 1014 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Top Secret
Processing Start = 2007/08/11 18:43:52.256
Processing End   = 2007/08/11 18:43:52.350
Duration         = 0000/00/00 00:00:00.094
KiXGolf Result   = Solution passed all 18 tests
KiXGolf Score    = 417
 
Thank you for participating in KiXtart Golf!



 Code:
; begin Top Secret
;
;!
Function a($f,$b,$c,$d)

	dim $, $g, $o, $j, $m

	$=createobject(VBscript.RegExp)
	$.Pattern="\W|\d"
	$.Global=1 
	$o=$.replace($c,"")
	$c=$.Execute($c)

	do
		$j=split($b,",")
		for $g=1 to $f
			if $f>($o^) 
				if $g>($o^)
					$.Pattern=""+$g+",?"
					$b=$.replace($b,"")
					$m=1+$m
				endif
			else
				$a=$a+substr($o,iif($d=E,$j[$g-1],ascan($j,$g)+1),1)
			endif
		next
		$o=substr($o,1+($m=)*$f)
		$f=$f-$m
		$m=0
	until $o=0

	for each $ in $c
		$m=$.FirstIndex
		$a=left($a,$m)+ $.value + substr($a,$m+1)
	
EndFunction
;!
;!
; end Top Secret
_________________________
!

download KiXnet