#179152 - 2007-08-10 10:10 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
Howard Bullock
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
|
Top
|
|
|
|
#179153 - 2007-08-10 10:16 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
Howard Bullock
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.
|
Top
|
|
|
|
#179155 - 2007-08-10 10:31 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Howard Bullock]
|
Howard Bullock
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)
|
Top
|
|
|
|
#179156 - 2007-08-10 10:33 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Howard Bullock]
|
Howard Bullock
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!
; 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
|
Top
|
|
|
|
#179161 - 2007-08-10 11:16 PM
Re: KiXgolf: Top Secret - Public Round
[Re: Lonkero]
|
DrillSergeant
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!
; 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?
_________________________
The Code is out there
|
Top
|
|
|
|
#179164 - 2007-08-10 11:27 PM
Re: KiXgolf: Top Secret - Public Round
[Re: DrillSergeant]
|
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 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!
; 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
|
|
|
|
#179166 - 2007-08-10 11:28 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 = 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!
; 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
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
1 registered
(Allen)
and 382 anonymous users online.
|
|
|