#180610 - 2007-09-14 02:21 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Jochen]
|
Benny69
Moderator
   
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Jooel, I was trying to figure out a way to get rid of the Step, Basta!
Jochen, you Dawg! you have been holding back.
|
Top
|
|
|
|
#180612 - 2007-09-14 02:47 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Jochen]
|
Jochen
KiX Supporter
   
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
I'd like to post this preliminary until approved by Jens. Just in case rule #30 is coming into effect, as the minimum length of the dictionary words is nowhere mentioned...
Your solution passed all tests
KiXtart KiXtart Version = 4.53 KiXGolf Script = kixgolf_A2Z.kix
Computer OS = Windows 2000 Professional CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz Speed = 2793 MHz Memory = 504 MB
KiXGolf Scoring Engine Scoring Engine = 3.3
KiXtart Golf Score Tournament = A-to-Z Processing Start = 2007/09/14 14:39:12.109 Processing End = 2007/09/14 14:39:12.156 Duration = 0000/00/00 00:00:00.047 KiXGolf Score = 207
Thank you for participating in KiXtart Golf!
function a($b,$c)
dim $,$d,$e
$a=0
for each $ in $b
dim $f
for each $d in $b
if $<$d
for $e=-9 to -2
if right($,-$e)=left($d,-$e)
$=$+' '+$d
$f=$f-$e+1
else
if $=join($c,left(right($,~),~))&($|)-$f<$a|~$a
$a=''+(($|)-$f)+' '+$
endfunction
Ugh. I feel a bit filthy now
_________________________
|
Top
|
|
|
|
#180613 - 2007-09-14 02:58 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Jochen]
|
Benny69
Moderator
   
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
|
Top
|
|
|
|
#180615 - 2007-09-14 03:03 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Jochen]
|
Benny69
Moderator
   
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
|
Top
|
|
|
|
#180616 - 2007-09-14 03:08 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Benny69]
|
Jochen
KiX Supporter
   
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
Top
|
|
|
|
#180617 - 2007-09-14 03:13 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Jochen]
|
Benny69
Moderator
   
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
|
Top
|
|
|
|
#180626 - 2007-09-14 11:19 PM
Re: KiXgolf: A-to-Z - Public Round
[Re: Jochen]
|
Benny69
Moderator
   
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
ok, I can't go down with out a fight 
Function a($b,$c)
Dim $,$d,$e
$a=0
For Each $ in $b
Dim $f
For Each $d in $b
If $<$d
For $e = -($^) to -2
If $=Join($c,SubStr($,2,-$e)) & -$e-$f<$a | ~$a
$a=''+(($^)-$f)+' '+$
Else
If Right($,-$e)=Left($d,-$e)
$=$+' '+$d
$f=$f-$e+1
; EndIf
; EndIf
; Next
; EndIf
; Next
; Next
EndFunction
Running Test 1...Done...Result: 11 about outside ideas Running Test 2...Done...Result: 4 ones Running Test 3...Done...Result: 0 Running Test 4...Done...Result: 7 aabbbb bbbbz Running Test 5...Done...Result: 0 Running Test 6...Done...Result: 9 ayrton onset Running Test 7...Done...Result: 6 kita tart Running Test 8...Done...Result: 11 about outside ideas Your solution passed all tests
Your solution passed all tests
KiXtart KiXtart Version = 4.53 KiXGolf Script = kixgolf_A2Z.kix
Computer OS = Windows Vista Ultimate Edition CPU = Intel(R) Pentium(R) D CPU 2.80GHz Speed = 2792 MHz Memory = 2048 MB
KiXGolf Scoring Engine Scoring Engine = 3.3
KiXtart Golf Score Tournament = A-to-Z Processing Start = 2007/09/14 16:20:00.910 Processing End = 2007/09/14 16:20:00.990 Duration = 0000/00/00 00:00:00.079 KiXGolf Score = 206
Thank you for participating in KiXtart Golf! Press any key to continue...
|
Top
|
|
|
|
#180630 - 2007-09-16 06:29 AM
Re: KiXgolf: A-to-Z - Public Round
[Re: Lonkero]
|
Benny69
Moderator
   
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
fighting, but i'm just not the sharpest tool in the shed
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 557 anonymous users online.
|
|
|