#179174 - 2007-08-11 12:00 AM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Howard Bullock
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.
|
Top
|
|
|
|
#179175 - 2007-08-11 12:05 AM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
It actually works both ways for me.
If ($k^) >= $
If ($k^) => $
|
Top
|
|
|
|
#179176 - 2007-08-11 12:11 AM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Lonkero
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!
; 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
|
|
|
|
#179178 - 2007-08-11 12:21 AM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Howard Bullock
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
|
Top
|
|
|
|
#179180 - 2007-08-11 12:32 AM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Howard Bullock
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)
|
Top
|
|
|
|
#179182 - 2007-08-11 01:04 AM
Re: KiXgolf: Top Secret - Public Round
[Re: Howard Bullock]
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
BROKE IT!!!
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!
; 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
|
|
|
|
#179189 - 2007-08-11 01:13 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Lonkero
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!
; 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
|
|
|
|
#179195 - 2007-08-11 03:07 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Howard Bullock
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.
|
Top
|
|
|
|
#179197 - 2007-08-11 04:23 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
Lonkero
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!
; 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
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!
; 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
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 557 anonymous users online.
|
|
|