; begin Top Secret
;
;!
Function a($b, $p, $, $h)
dim $c, $r, $x

Do
$x = Left($, 1)
$c = LCase($)
If ($c>` & $c<{)
$r = $r + $x
$x = Chr(1)
EndIf
$a = $a + $x
$ = Right($,~)
Until $=0

$p = Split($p,',')

For $c = 0 to ($r^) - 1
While $b + $c - $ > ($r^)
$p = Split(Right(Join(Split(' ' + Join($p), ' ' + $b), ''), ~))
$b = $b - 1
Loop

$x = InStr($a,Chr(1))
$a = Left($a,$x - 1) + Substr($r, $c + iif($h = E, $p[$], Ascan($p, $ + 1) + 1) - $,1) + Substr($a, $x + 1)
$ = ($ + 1) mod $b
EndFunction
;!
;!
; end Top Secret








KiXtart
KiXtart Version = 4.52
KiXGolf Script = kixgolf_ts.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 2261 MHz
Memory = 1024 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Top Secret
Processing Start = 2007/08/10 08:37:45.921
Processing End = 2007/08/10 08:37:45.937
Duration = 0000/00/00 00:00:00.016
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 359

Thank you for participating in KiXtart Golf!




Edited by DrillSergeant (2007-08-10 08:40 AM)
_________________________
The Code is out there