#179120 - 2007-08-10 05:23 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
Excellent. I should have seen that. I was looking into those variables before I had to take the kids to the orthodonists.
|
Top
|
|
|
|
#179121 - 2007-08-10 05:38 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
KiXtart KiXtart Version = 4.52 KiXGolf Script = kixgolf_ts.kix
Computer OS = Windows XP Professional CPU = Intel Pentium Model 13 Speed = 599 MHz Memory = 1024 MB
KiXGolf Scoring Engine Scoring Engine = 3.3
KiXtart Golf Score Tournament = Top Secret Processing Start = 2007/08/10 11:36:03.501 Processing End = 2007/08/10 11:36:03.541 Duration = 0000/00/00 00:00:00.040 KiXGolf Result = Solution passed all 18 tests KiXGolf Score = 338 Thank you for participating in KiXtart Golf!
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
/*
1) the block length
2) the permutation
3) the message to be encoded or decoded
4) a parameter denoting encoding (E) or decoding (D)
*/
dim $i, $o[$c^0], $, $r, $k
For $i=0 to $c^0
$=Substr($c,$i+1,1)
$a=LCase($)
If $a>` & $a<}
$k=$k+$
$r=$r+" "+$i
EndIf
$o[$i] = $
If ($k^)=$l | $i=($c^)
for each $ in Split($b,",")
if $i+$-($k^)<=($c^)
$a=$a+" "+$
EndIf
Next
$a=split($a)
For $=1 to ($k^)
$o[split($r)[iif($d=E,$,$a[$])]] = substr($k,iif($d=E,$a[$],$),1)
Next
redim $r,$k
$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
|
Top
|
|
|
|
#179124 - 2007-08-10 06:14 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
sixdoubleo
Starting to like KiXtart
Registered: 2004-02-06
Posts: 118
Loc: California, US
|
I'm still at 461 Haven't had any time whatsoever in the last couple days to work on it.
Anyway, I was going to post my code, but I see everybody running different tests.. Is there a new INI file I should run before posting my code?
|
Top
|
|
|
|
#179126 - 2007-08-10 06:20 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
LOL
did you give me a present, howard?
For $=1 to ($k^)
to
For $=1 to $k^0
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 18:17:57.281 Processing End = 2007/08/10 18:17:57.312 Duration = 0000/00/00 00:00:00.031 KiXGolf Result = Solution passed all 18 tests KiXGolf Score = 337 Thank you for participating in KiXtart Golf!
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
/*
1) the block length
2) the permutation
3) the message to be encoded or decoded
4) a parameter denoting encoding (E) or decoding (D)
*/
dim $i, $, $r, $k, $o[$c^0]
For $i=0 to $c^0
$=Substr($c,$i+1,1)
$a=LCase($)
If $a>` & $a<}
$k=$k+$
$r=$r+" "+$i
EndIf
$o[$i] = $
If ($k^)=$l | $i=($c^)
for each $ in Split($b,",")
If $i+$-($k^)<=($c^)
$a=$a+" "+$
EndIf
Next
$a=split($a)
For $=1 to $k^0
$o[split($r)[iif($d=E,$,$a[$])]] = substr($k,iif($d=E,$a[$],$),1)
Next
$r='' $k=''
$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
_________________________
The Code is out there
|
Top
|
|
|
|
#179127 - 2007-08-10 06:27 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
Argh!! Crap. I was too eager to post and lock in the new score. I was fearing you might beat me to the post. Christmas apparently came early.
|
Top
|
|
|
|
#179128 - 2007-08-10 06:29 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
sixdoubleo
Starting to like KiXtart
Registered: 2004-02-06
Posts: 118
Loc: California, US
|
Damn you guys and your new tests! Now my code's broke.
Running Test 1 Encoding...0000000000000000000000000000Decoding...Done
Running Test 2 Encoding...00Decoding...Done
Running Test 3 Encoding...000Decoding...Done
Running Test 4 Encoding...0000000000000Decoding...Done
Running Test 5 Encoding...0000000000000Decoding...Done
Running Test 6 Encoding...00000000000000000000000000000000000000000Decoding...Do
ne
Running Test 8 Encoding...
ERROR : array reference out of bounds!
Script: D:\Dev\kix\Golf\Week1a\KIXGOLF_TS.udf
Line : 47
D:\Dev\kix\Golf\Week1a>
Also, now it looks like I'm spitting out return codes somewhere. This wasn't happening before.
Well, hopefully I'll get a little time today to at least get my code fixed.
Edited by sixdoubleo (2007-08-10 06:30 PM)
|
Top
|
|
|
|
#179130 - 2007-08-10 06:32 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
sixdoubleo
Starting to like KiXtart
Registered: 2004-02-06
Posts: 118
Loc: California, US
|
I'm still at 461 Haven't had any time whatsoever in the last couple days to work on it. Anyway, I was going to post my code, but I see everybody running different tests.. Is there a new INI file I should run before posting my code? sixdoubleo, you can post your code anyway, even if it doesn't work. It's always nice to see what approach someone took. And, who knows? Maybe your code is perfect for the group to trim down to below 300
OK...see above. Let me see if I can fix it first.
Edit: OK...the return code issue was due to an older version of Kix32.exe on this box. Fixed that, but still getting an array out of bounds on Test 8.
Edited by sixdoubleo (2007-08-10 06:35 PM)
|
Top
|
|
|
|
#179132 - 2007-08-10 06:54 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Gargoyle]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
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 18:52:26.453 Processing End = 2007/08/10 18:52:26.484 Duration = 0000/00/00 00:00:00.031 KiXGolf Result = Solution passed all 18 tests KiXGolf Score = 330 Thank you for participating in KiXtart Golf!
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
/*
1) the block length
2) the permutation
3) the message to be encoded or decoded
4) a parameter denoting encoding (E) or decoding (D)
*/
dim $i, $, $r, $k, $o[$c^0]
For $i=0 to $c^0
$=Substr($c,$i+1,1)
$a=LCase($)
If $a>` & $a<}
$k=$k+$
$r=$r+" "+$i
EndIf
$o[$i] = $
If ($k^)=$l | $i=($c^)
for each $ in Split($b,",")
If 0 + $ <= ($k^)
$a=$a+" "+$
EndIf
Next
$a=split($a)
For $=1 to $k^0
$o[split($r)[iif($d=E,$,$a[$])]] = substr($k,iif($d=E,$a[$],$),1)
Next
$r='' $k=''
$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
_________________________
The Code is out there
|
Top
|
|
|
|
#179134 - 2007-08-10 07:00 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
Cranking up the heat...
KiXtart KiXtart Version = 4.52 KiXGolf Script = kixgolf_ts.kix
Computer OS = Windows XP Professional CPU = Intel Pentium Model 13 Speed = 599 MHz Memory = 1024 MB
KiXGolf Scoring Engine Scoring Engine = 3.3
KiXtart Golf Score Tournament = Top Secret Processing Start = 2007/08/10 12:59:02.937 Processing End = 2007/08/10 12:59:02.977 Duration = 0000/00/00 00:00:00.040 KiXGolf Result = Solution passed all 18 tests KiXGolf Score = 327 Thank you for participating in KiXtart Golf!
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
/*
1) the block length
2) the permutation
3) the message to be encoded or decoded
4) a parameter denoting encoding (E) or decoding (D)
*/
dim $i, $o[$c^0], $, $r, $k, $y
For $i=0 to $c^0
$=Substr($c,$i+1,1)
$a=LCase($)
If $a>` & $a<}
$k=$k+$
$r=$r+" "+$i
EndIf
$o[$i] = $
If ($k^)=$l | $i=($c^)
for each $ in Split($b,",")
if $i+$-($k^)<=($c^)
$a=$a+" "+$
EndIf
Next
For $=1 to $k^0
$y=$,split($a)[$]
$o[split($r)[$y[$d=D]]]=substr($k,$y[$d=E],1)
Next
redim $r,$k
$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
|
Top
|
|
|
|
#179136 - 2007-08-10 07:03 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Howard Bullock]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
THIS SCORE BELONGS TO HOWARD
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 19:02:52.890 Processing End = 2007/08/10 19:02:52.921 Duration = 0000/00/00 00:00:00.031 KiXGolf Result = Solution passed all 18 tests KiXGolf Score = 320 Thank you for participating in KiXtart Golf!
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
/*
1) the block length
2) the permutation
3) the message to be encoded or decoded
4) a parameter denoting encoding (E) or decoding (D)
*/
dim $i, $o[$c^0], $, $r, $k, $y
For $i=0 to $c^0
$=Substr($c,$i+1,1)
$a=LCase($)
If $a>` & $a<}
$k=$k+$
$r=$r+" "+$i
EndIf
$o[$i] = $
If ($k^)=$l | $i=($c^)
for each $ in Split($b,",")
If 0 + $ <= ($k^)
$a=$a+" "+$
EndIf
Next
For $=1 to $k^0
$y=$,split($a)[$]
$o[split($r)[$y[$d=D]]]=substr($k,$y[$d=E],1)
Next
redim $r,$k
$a=join($o,'')
EndFunction
;!
;!
; end Top Secret
Edited by DrillSergeant (2007-08-10 07:34 PM)
_________________________
The Code is out there
|
Top
|
|
|
|
#179142 - 2007-08-10 07:20 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Gargoyle]
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
I have to leave for a couple hours. I wish you would have posted your update a few minutes earlier. In that case I could leave knowing I had the lead. I think a see a new posting strategy.
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 259 anonymous users online.
|
|
|