Page 3 of 6 <12345>Last »
Topic Options
#179120 - 2007-08-10 05:23 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Howard Bullock Offline
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.
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179121 - 2007-08-10 05:38 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Howard Bullock Offline
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!




 Code:
; 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
 
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179123 - 2007-08-10 06:07 PM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
Lot of work for 1 point. But every point counts, eh?
_________________________
The Code is out there

Top
#179124 - 2007-08-10 06:14 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
sixdoubleo Offline
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
#179125 - 2007-08-10 06:18 PM Re: KiXgolf: Top Secret - Public Round [Re: sixdoubleo]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
yep,

check the private round thread: last page for new rules and first post for downloading the new ini
_________________________



Top
#179126 - 2007-08-10 06:20 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
LOL

did you give me a present, howard? \:D

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!




 Code:
; 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 Offline
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.
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179128 - 2007-08-10 06:29 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
sixdoubleo Offline
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. \:\(

 Code:

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
#179129 - 2007-08-10 06:30 PM Re: KiXgolf: Top Secret - Public Round [Re: sixdoubleo]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
 Originally Posted By: sixdoubleo
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 \:\)
_________________________
The Code is out there

Top
#179130 - 2007-08-10 06:32 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
sixdoubleo Offline
Starting to like KiXtart

Registered: 2004-02-06
Posts: 118
Loc: California, US
 Originally Posted By: DrillSergeant
 Originally Posted By: sixdoubleo
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
#179131 - 2007-08-10 06:52 PM Re: KiXgolf: Top Secret - Public Round [Re: sixdoubleo]
Gargoyle Offline
MM club member
*****

Registered: 2004-03-09
Posts: 1597
Loc: Valley of the Sun (Arizona, US...
I am still working on my original code (no where near complete yet) but have a question. When you have a Non Alpha character it keeps it same position... but how do you then figure out the permutation.

I.E. Input = This is n0t 4 real.

With a block size of 5 and permutation of 53214

Now my problem is that my first block = "This ", position 5 is a space, so therefor it should stay in position 5 but I have already put "T" into position 5.

I am not grasping how to reconcile what the permutation becomes.
_________________________
Today is the tomorrow you worried about yesterday.

Top
#179132 - 2007-08-10 06:54 PM Re: KiXgolf: Top Secret - Public Round [Re: Gargoyle]
DrillSergeant Offline
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!




 Code:
; 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
#179133 - 2007-08-10 07:00 PM Re: KiXgolf: Top Secret - Public Round [Re: Gargoyle]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
 Originally Posted By: Gargoyle


I.E. Input = This is n0t 4 real.

With a block size of 5 and permutation of 53214

Now my problem is that my first block = "This ", position 5 is a space, so therefor it should stay in position 5 but I have already put "T" into position 5.

I am not grasping how to reconcile what the permutation becomes.


 Code:
This i|s n0t 4 re|al
5321 4|5 3 2   14|21

sihi T|r t0n 4 es|la
1234 5|1 2 3   45|12


so you first have to create a string with only letters and work the permutation from there.


Edited by DrillSergeant (2007-08-10 07:14 PM)
_________________________
The Code is out there

Top
#179134 - 2007-08-10 07:00 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Howard Bullock Offline
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!




 Code:
; 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 
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179136 - 2007-08-10 07:03 PM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
DrillSergeant Offline
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!




 Code:
; 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
#179137 - 2007-08-10 07:05 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
Hehehe, aren't I a sneaky bastard? \:D
_________________________
The Code is out there

Top
#179138 - 2007-08-10 07:06 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Gargoyle Offline
MM club member
*****

Registered: 2004-03-09
Posts: 1597
Loc: Valley of the Sun (Arizona, US...
Thanks Sarge, now I have to rethink my strategy...

[edit]
Select - All (ctrl+a)
Delete (del)
[/edit]
_________________________
Today is the tomorrow you worried about yesterday.

Top
#179140 - 2007-08-10 07:18 PM Re: KiXgolf: Top Secret - Public Round [Re: Gargoyle]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
$y=$,split($a)[$]


???? what the hell??? I can't even figure out what it's supposed to do, how did you come up with it?
_________________________
The Code is out there

Top
#179141 - 2007-08-10 07:20 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
oh, wait... I see it... damn! My hat is off, howard \:\)
_________________________
The Code is out there

Top
#179142 - 2007-08-10 07:20 PM Re: KiXgolf: Top Secret - Public Round [Re: Gargoyle]
Howard Bullock Offline
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.
_________________________
Home page: http://www.kixhelp.com/hb/

Top
Page 3 of 6 <12345>Last »


Moderator:  Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 248 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.08 seconds in which 0.028 seconds were spent on a total of 14 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org