Page 4 of 6 « First<23456>
Topic Options
#179146 - 2007-08-10 07:30 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
I did post my update before your update (post #179132), but you didn't see it.

I copied&pasted my -7 into your -10 real quick and posted that after your -10 post again. (Hence the sneaky bastard post after that)

I just send you a PM about this. I think you're in the lead. I'll delete my 320 post, so you can post it if you want.

As I told Jooel in the the private round, I don't hold back scores. If I did we would be playing kixpoker instead of kixgolf...


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

Top
#179149 - 2007-08-10 09:39 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Wow, you guys still pressing strokes out of Jooel's code.
I will have to leave the fun now as the vacation primings are in the hot phase.

So, see you on Monday in two weeks,

Have Fun!

\:\)
_________________________



Top
#179152 - 2007-08-10 10:10 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
I had been staring at those ugly IIF statements most of the morning thinking there had to be away to get rid of them. I think I found it.

Edited by Howard Bullock (2007-08-10 10:17 PM)
Edit Reason: spelling
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179153 - 2007-08-10 10:16 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
No problem. I had six minutes to see your post. I was just too excited with my prospects of my new code and big drop in the stroke count. Timing is every thing I guess.
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179154 - 2007-08-10 10:23 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
 Originally Posted By: Howard Bullock
... I was just too excited with my prospects of my new code and big drop in the stroke count...


Hehehe, I know what you mean, my heart rate went through the roof when I got that -7 \:D

But seriously, if this has an effect on the overal scoring, you are currently #1. Also because your -10 is so much nicer than my -7 ;\)
_________________________
The Code is out there

Top
#179155 - 2007-08-10 10:31 PM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Rogier, I knew it would be OK.

See next post...


Edited by Howard Bullock (2007-08-10 10:32 PM)
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179156 - 2007-08-10 10:33 PM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA




KiXtart
KiXtart Version = 4.53
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 16:28:32.112
Processing End = 2007/08/10 16:28:32.152
Duration = 0000/00/00 00:00:00.040
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 318

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

Top
#179157 - 2007-08-10 10:38 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
hehehe, I've looked at that line a couple of times too, but I couldn't figure out what was wrong with it.

Amazing eh? to go from:

if $i+$a-$g-1<($c^)

to

if ($k^)>=$
_________________________
The Code is out there

Top
#179159 - 2007-08-10 10:56 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...
I have officially thrown in the towel... I just keep going in circles.

Maybe someone can break down one these and provide a step by step analysis for us golf rookies.
_________________________
Today is the tomorrow you worried about yesterday.

Top
#179160 - 2007-08-10 11:09 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
damn, I never thought about using lcase!!!!
damn how stupid of me.
_________________________
!

download KiXnet

Top
#179161 - 2007-08-10 11:16 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
Damn... can we break 300???





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 23:13:35.953
Processing End = 2007/08/10 23:13:35.984
Duration = 0000/00/00 00:00:00.031
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 308

Thank you for participating in KiXtart Golf!





 Code:
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
dim $i, $o[$c^0], $, $r, $k, $y

For $i=0 to $c^0
	$=Substr($c,$i+1,1)
	$o[$i] = $
	$a=LCase($)
	If $a>` & $a<}
		$k=$k+$
		$r=$r + " " + $i
	EndIf
	If ($k^)=$l | $i=($c^)
		For Each $ in Split($b,",")
			If ($k^) => $
				$a=$a+" "+$
				$y = ascan(Split($a),$), $
				$o[split($r)[$y [$d = D]]] = substr($k, $y[$d = E], 1)
			EndIf
		Next
		ReDim $r,$k
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret 


How it made me feel? \:D \:D \:D
_________________________
The Code is out there

Top
#179162 - 2007-08-10 11:23 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 have officially thrown in the towel... I just keep going in circles.

Maybe someone can break down one these and provide a step by step analysis for us golf rookies.


I promise to explain the final code completely after the public round \:\)
_________________________
The Code is out there

Top
#179164 - 2007-08-10 11:27 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK




KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_ts.kix

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

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Top Secret
Processing Start = 2007/08/11 00:26:34.499
Processing End = 2007/08/11 00:26:34.561
Duration = 0000/00/00 00:00:00.061
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 317

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 ($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
    $r=!
    $k=''
    $a=join($o,'')
EndFunction
;!
;!
; end Top Secret 
_________________________
!

download KiXnet

Top
#179165 - 2007-08-10 11:27 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
damn it guys.
you post new scores quicker than I can copy&paste them from the board.
_________________________
!

download KiXnet

Top
#179166 - 2007-08-10 11:28 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK




KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_ts.kix

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

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Top Secret
Processing Start = 2007/08/11 00:30:06.327
Processing End = 2007/08/11 00:30:06.421
Duration = 0000/00/00 00:00:00.094
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 307

Thank you for participating in KiXtart Golf!


 Code:
; begin Top Secret
;
;!
Function a($l,$b,$c,$d)
dim $i, $o[$c^0], $, $r, $k, $y

For $i=0 to $c^0
	$=Substr($c,$i+1,1)
	$o[$i] = $
	$a=LCase($)
	If $a>` & $a<}
		$k=$k+$
		$r=$r + " " + $i
	EndIf
	If ($k^)=$l | $i=($c^)
		For Each $ in Split($b,",")
			If ($k^) => $
				$a=$a+" "+$
				$y = ascan(Split($a),$), $
				$o[split($r)[$y [$d = D]]] = substr($k, $y[$d = E], 1)
			EndIf
		Next
		$r=!
                $k=''
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret 
_________________________
!

download KiXnet

Top
#179167 - 2007-08-10 11:29 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
Ok, I'm not going to post a 307 now... \:D
_________________________
The Code is out there

Top
#179168 - 2007-08-10 11:30 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
thanks.
_________________________
!

download KiXnet

Top
#179169 - 2007-08-10 11:35 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
k, did it slow down already?
you guys did amazing job with my code.

one thing I have issue with, is the way kixtart handles => thingies.
if it's done like >= it works, but not the way I tried it.
stupid.
should have invested some more in the private round...
if I would have had the need that is. if there was enough competition and stuff like that ;\)
_________________________
!

download KiXnet

Top
#179170 - 2007-08-10 11:37 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
hmm... or was it the other way around.
it works like => but not >=
_________________________
!

download KiXnet

Top
#179171 - 2007-08-10 11:56 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
well, I'm off to bed, I'll check in tomorrow and see that <300 post of one of you ;\)
_________________________
The Code is out there

Top
Page 4 of 6 « First<23456>


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

Who's Online
1 registered (Allen) and 466 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.054 seconds in which 0.02 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