Page 5 of 6 « First<23456>
Topic Options
#179174 - 2007-08-11 12:00 AM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Jooel, this just sucks. We have been slaving away at this all day and just pop in and take the lead.

Anyway, nice changes. I hope left something for us.
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179175 - 2007-08-11 12:05 AM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
It actually works both ways for me.

If ($k^) >= $

If ($k^) => $
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179176 - 2007-08-11 12:11 AM 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 01:11:21.511
Processing End = 2007/08/11 01:11:21.604
Duration = 0000/00/00 00:00:00.092
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 301

Thank you for participating in KiXtart Golf!



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

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+" "+$
				$ = ascan(Split($a),$), $
				$o[split($r)[$[$d = D]]] = substr($k, $[$d = E], 1)
			EndIf
		Next
		$r=!
                $k=''
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret 
_________________________
!

download KiXnet

Top
#179177 - 2007-08-11 12:12 AM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
still not under 300.
hoby, your turn!
_________________________
!

download KiXnet

Top
#179178 - 2007-08-11 12:21 AM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Wow. Let me start all over again. I have to see what you did.

Edited by Howard Bullock (2007-08-11 12:30 AM)
Edit Reason: spelling
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179179 - 2007-08-11 12:24 AM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
actually nothing.
you guys just didn't see the forest for the seas.
_________________________
!

download KiXnet

Top
#179180 - 2007-08-11 12:32 AM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
I needed the $y earlier when it was first introduced, but failed to look at it again when the structure changed later on. Still looking.

/edit/
Wow you made more changes than I thought.
/End Edit/


Edited by Howard Bullock (2007-08-11 12:46 AM)
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179182 - 2007-08-11 01:04 AM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
BROKE IT!!! \:D \:D \:D




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/11 01:01:32.015
Processing End = 2007/08/11 01:01:32.046
Duration = 0000/00/00 00:00:00.030
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 299

Thank you for participating in KiXtart Golf!




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

For $i=1 to $c^0
	$=Substr($c,$i,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+" "+$
				$ = ascan(Split($a),$), $
				$o[split($r)[$[$d = D]]] = substr($k, $[$d = E], 1)
			EndIf
		Next
		$r=!
		$k=''
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret 
_________________________
The Code is out there

Top
#179183 - 2007-08-11 01:05 AM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
couldn't sleep ;\)
_________________________
The Code is out there

Top
#179185 - 2007-08-11 04:02 AM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
I'm quite impressed \:\) Looks like there's a nice little give-and-take going on.
_________________________
There are two types of vessels, submarines and targets.

Top
#179188 - 2007-08-11 11:32 AM Re: KiXgolf: Top Secret - Public Round [Re: Sealeopard]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
lol, talk about simple change...
couldn't even see it with naked eye but had to revert to FC \:\)


Edited by Jooel (2007-08-11 11:33 AM)
_________________________
!

download KiXnet

Top
#179189 - 2007-08-11 01:13 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

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




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 14:13:09.362
Processing End = 2007/08/11 14:13:09.455
Duration = 0000/00/00 00:00:00.093
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 292

Thank you for participating in KiXtart Golf!



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

For $i=1 to $c^0
	$=Substr($c,$i,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+$+!
				$ = instr($a,$)/2, $
				$o[split($r)[$[$d = D]]] = substr($k, $[$d = E], 1)
			EndIf
		Next
		$r=!
		$k=''
		$a=join($o,'')
EndFunction
;!
;!
; end Top Secret 
_________________________
!

download KiXnet

Top
#179191 - 2007-08-11 01:53 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
 Code:
$a=$a+$+!
$ = instr($a,$)/2, $


I can't understand why this even works for a blocksize of 10... but hey, if it works, it works \:\)

Somewhere along the line we lost the functionality for the blocksize=100 test though... oh well, not part of the assignment anyway \:\/
_________________________
The Code is out there

Top
#179192 - 2007-08-11 02:33 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
Had an idea. May have to test whether I can utilize UltraCompare to create a color-codes set of UDFs that highlights the changes from score to score. I can't even figure out which characters have been removed or whether there was more substantial changes to what seems to be Jooels original code base.
_________________________
There are two types of vessels, submarines and targets.

Top
#179193 - 2007-08-11 02:42 PM Re: KiXgolf: Top Secret - Public Round [Re: Sealeopard]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
well, my original code is a bit rewambed now.

the problem with coloring is that when there is structure change, like one for moves inside another, the whole udf gets colored, right?
_________________________
!

download KiXnet

Top
#179194 - 2007-08-11 02:47 PM Re: KiXgolf: Top Secret - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
drill, it works, because 10 is only doubledigit number.
say we have:
"a" as the character
"a7!10!3!..." is the result.

then, the location of "7" is 2, "10" is 4 and "3" is 7.

and here is the beauty, dividing it with int, results in int!
so, dividing the values with 2 gives 1, 2 and 3.

if the blocksize was 11 or the wished 100, it wouldn't work.
guess that's where we lost the support for huge blocksizes \:\)
_________________________
!

download KiXnet

Top
#179195 - 2007-08-11 03:07 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Great job guys. Your skills surpass mine. Hats off to both of you.
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#179196 - 2007-08-11 03:16 PM Re: KiXgolf: Top Secret - Public Round [Re: Howard Bullock]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
slow down with the hails.
I'm blushing already.
_________________________
!

download KiXnet

Top
#179197 - 2007-08-11 04:23 PM Re: KiXgolf: Top Secret - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
ok...
as this is already golfed, started with hoby's code.
left the regexp as it was.




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 17:21:54.857
Processing End = 2007/08/11 17:21:54.935
Duration = 0000/00/00 00:00:00.077
KiXGolf Result = Solution passed all 18 tests
KiXGolf Score = 419

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

Top
#179198 - 2007-08-11 05:44 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 = 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

Top
Page 5 of 6 « First<23456>


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

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

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

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