You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Lounge » KiXgolf: A-to-Z - Public Round
Register User       Forum List       Calendar       FAQ
Page 2 of 4 <1234>
Topic Options
#180524 - 2007-09-13 01:15 PM Re: KiXgolf: A-to-Z - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
 Originally Posted By: DrillSergeant
you sure? I've tested with this ini:
 Code:
.
.
.
[Test 8]
Dictionary=ones,outside,other,ideas,against,students,added,education,about
Input=a,s
Output=11 about outside ideas


Well, the original Dictionary of test 8 is this line:

Dictionary=ones,about,outside,other,ideas,against,students,added,education

So, I think you're 209 Score shall be dismissed
_________________________



Top
#180526 - 2007-09-13 01:55 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Just for the records, mine rearranged a bit more for 2 strokes less: 

function a($b,$c)
    dim $,$d,$e
    $a=0
    for each $ in $b
            dim $f
            for each $d in $b
                dim $g
                for $e=2 to 0|$
                    if instr($d,right($,$e))=1
                        $g=$e
                    endif
                next
                if $g
                    if $d>$
                        $f=$f+$g+1
                        $=$+' '+$d
                    endif
                    $g=($|)-$f
                    if right($,1)=$c[1]&left($,1)=$c[0]&$g<$a|1>$a
                        $a=''+$g+' '+$
endfunction
Score: 

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 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/13 13:52:30.734
Processing End   = 2007/09/13 13:52:30.765
Duration         = 0000/00/00 00:00:00.031
KiXGolf Score    = 231

Thank you for participating in KiXtart Golf!
_________________________



Top
#180528 - 2007-09-13 02:07 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
dang! you guys are ripp'n it up, Nice!
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180529 - 2007-09-13 02:42 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Jochen's for 222

 Code:
Function a($b,$c)
  Dim $,$d,$e
  $a=0
  For Each $ in $b
    Dim $f
    For Each $d in $b
      Dim $g
      If $<$d
        For $e = $^0 to 2 Step -1
          If Right($,$e)=Left($d,$e)
            $=$+' '+$d
            $f=$f+$e+1
          EndIf
        Next
          $g=($|)-$f
          If Right($,1)=$c[1]&Left($,1)=$c[0]&$g<$a|~$a
            $a=''+$g+' '+$
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 XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 07:40:20.340
Processing End = 2007/09/13 07:40:20.371
Duration = 0000/00/00 00:00:00.030
KiXGolf Score = 222

Thank you for participating in KiXtart Golf!
Press any key to continue...
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180531 - 2007-09-13 02:45 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Jochen's for 219

 Code:
Function a($b,$c)
  Dim $,$d,$e
  $a=0
  For Each $ in $b
    Dim $f
    For Each $d in $b
      If $<$d
        For $e = $^0 to 2 Step -1
          If Right($,$e)=Left($d,$e)
            $=$+' '+$d
            $f=$f+$e+1
          EndIf
        Next
          If Right($,1)=$c[1]&Left($,1)=$c[0]&($|)-$f<$a|~$a
            $a=''+(($|)-$f)+' '+$
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 XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 07:45:24.137
Processing End = 2007/09/13 07:45:24.168
Duration = 0000/00/00 00:00:00.031
KiXGolf Score = 219

Thank you for participating in KiXtart Golf!
Press any key to continue...
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180532 - 2007-09-13 02:48 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Jochen's for 215

 Code:
Function a($b,$c)
  Dim $,$d,$e
  $a=0
  For Each $ in $b
    Dim $f
    For Each $d in $b
      If $<$d
        For $e = $^0 to 2 Step -1
          If Right($,$e)=Left($d,$e)
            $=$+' '+$d
            $f=$f+$e+1
          EndIf
          If Right($,1)=$c[1] & Left($,1)=$c[0] & ($|)-$f<$a | ~$a
            $a=''+(($|)-$f)+' '+$
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 XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 07:48:54.231
Processing End = 2007/09/13 07:48:54.262
Duration = 0000/00/00 00:00:00.030
KiXGolf Score = 215

Thank you for participating in KiXtart Golf!
Press any key to continue...
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180533 - 2007-09-13 02:50 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Nice one ... it's nearly yours now though ;\)
_________________________



Top
#180534 - 2007-09-13 02:53 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Jochen's for 214

 Code:
Function a($b,$c)
  Dim $,$d,$e
  $a=0
  For Each $ in $b
    Dim $f
    For Each $d in $b
      If $<$d
        For $e = $^0 to 2 Step -1
          If Right($,$e)=Left($d,$e)
            $=$+' '+$d
            $f=$f+$e+1
          Else
            If Right($,1)=$c[1] & Left($,1)=$c[0] & ($|)-$f<$a | ~$a
              $a=''+(($|)-$f)+' '+$
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 XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 08:10:59.434
Processing End = 2007/09/13 08:10:59.465
Duration = 0000/00/00 00:00:00.030
KiXGolf Score = 214

Thank you for participating in KiXtart Golf!
Press any key to continue...

Its your code, I told you that our code is often very close

Edited by Benny69 (2007-09-13 03:11 PM)
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180535 - 2007-09-13 02:57 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
ours is so close we even used the same vars
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180536 - 2007-09-13 02:59 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
On the other hand .... Here is "mine" for 214


function a($b,$c)
    dim $,$d,$e
    $a=0
    for each $ in $b
        dim $f
        for each $d in $b
            if $<$d
                for $e = $^0 to 2 step -1
                    if right($,$e)=left($d,$e)
                        $=$+' '+$d
                        $f=$f+$e+1
                    else
                        if right($,1)=$c[1] & left($,1)=$c[0] & ($|)-$f<$a | ~$a
                            $a=''+(($|)-$f)+' '+$
endfunction


Score:


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 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/13 14:56:52.296
Processing End   = 2007/09/13 14:56:52.343
Duration         = 0000/00/00 00:00:00.046
KiXGolf Score    = 214

Thank you for participating in KiXtart Golf!



See? We only swapped the conditions in comparison with yours ;\)
_________________________



Top
#180537 - 2007-09-13 03:01 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Lol, wasted my time on a neat layout ... anyway, already have posted a 214 score some time ago ;\)
_________________________



Top
#180538 - 2007-09-13 03:07 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
 Originally Posted By: Benny69
Jochen's for 214

 Code:
Function a($b,$c)
  Dim $,$d,$e
  $a=0
  For Each $ in $b
    Dim $f
    For Each $d in $b
      If $<$d
        For $e = $^0 to 2 Step -1
          If Right($,$e)=Left($d,$e)
            $=$+' '+$d
            $f=$f+$e+1
          Else
            If Right($,1)=$c[1] & Left($,1)=$c[0] & ($|)-$f<$a | ~$a
              $a=''+(($|)-$f)+' '+$
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 XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 07:48:54.231
Processing End = 2007/09/13 07:48:54.262
Duration = 0000/00/00 00:00:00.030
KiXGolf Score = 215

Thank you for participating in KiXtart Golf!
Press any key to continue...

Its your code, I told you that our code is often very close


You should edit the score though ;\)
_________________________



Top
#180539 - 2007-09-13 03:20 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Edited, thanks
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180542 - 2007-09-13 04:06 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
214 seems to be the dead end here \:\(
_________________________



Top
#180544 - 2007-09-13 04:17 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Drill's for 261:

 Code:
Function a($l,$t)
Dim $, $i, $j, $k, $h

$h = $l
$a = 0

For Each $i in $l
	For $j = 0 to UBound($l)
		$ = $l[$j]
		For $k = 0 to ($^)-1
			If SubStr($,$k+1) = Left($i,($^)-$k)
				If $k
					$h[$j] = $h[$j] + ' ' + $i
				EndIf
				$ = Left($,$k) + $i
				$l[$j] = $
				If Left($,1) = $t[0] & Right($,1) = $t[1] & ($^)<$a | $a=0
					$a = '' + ($^0) +' '+ $h[$j]
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 XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = A-to-Z
Processing Start = 2007/09/13 09:17:35.137
Processing End = 2007/09/13 09:17:35.199
Duration = 0000/00/00 00:00:00.061
KiXGolf Score = 261

Thank you for participating in KiXtart Golf!
Press any key to continue...
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#180545 - 2007-09-13 04:24 PM Re: KiXgolf: A-to-Z - Public Round [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
\:o You can't let go, eh?
_________________________



Top
#180548 - 2007-09-13 04:41 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
I'm waiting for Jooel to break the 200 \:D
_________________________
The Code is out there

Top
#180587 - 2007-09-13 10:32 PM Re: KiXgolf: A-to-Z - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
well, lets start slow...

Your solution passed all tests

KiXtart
KiXtart Version  = 4.60 Beta 1
KiXGolf Script   = kixgolf_A2Z.kix

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

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = A-to-Z
Processing Start = 2007/09/13 23:32:18.497
Processing End   = 2007/09/13 23:32:18.559
Duration         = 0000/00/00 00:00:00.061
KiXGolf Score    = 213


 Code:
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 right($,-$e)=left($d,-$e)
                        $=$+' '+$d
                        $f=$f-$e+1
                    else
                        if right($,1)=$c[1] & left($,1)=$c[0] & ($|)-$f<$a | ~$a
                            $a=''+(($|)-$f)+' '+$
endfunction
_________________________
!

download KiXnet

Top
#180597 - 2007-09-14 05:23 AM Re: KiXgolf: A-to-Z - Public Round [Re: Lonkero]
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
I think this is the firts time that Jooel didn't participate in a private round. That means the others will gain a bit on his championship lead.
_________________________
There are two types of vessels, submarines and targets.

Top
#180599 - 2007-09-14 07:49 AM Re: KiXgolf: A-to-Z - Public Round [Re: Sealeopard]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
I did participate!

I didn't get a working solution, but for sure I did use around 3 hours coding and posting in total.
_________________________
!

download KiXnet

Top
Page 2 of 4 <1234>


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

Who's Online
0 registered and 634 anonymous users online.
details
Newest Members
min_seow, Audio, Hoschi, Comet, rrosell
17881 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.079 seconds in which 0.024 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