KiXgolf: A-to-Z - Public Round - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Lounge » KiXgolf: A-to-Z - Public Round

Page 2 of 4

Topic Options

#180524 - 2007-09-13 01:15 PM Re: KiXgolf: A-to-Z - Public Round [Re: DrillSergeant]
Jochen Jochen KiX Supporter Registered: 2000-03-17 Posts: 6380 Loc: Stuttgart, Germany	Originally Posted By: DrillSergeant . . . [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 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 Benny69 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 Benny69 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 Benny69 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 Benny69 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 Jochen 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 Benny69 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 Benny69 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 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 Jochen 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 Jochen KiX Supporter Registered: 2000-03-17 Posts: 6380 Loc: Stuttgart, Germany	Originally Posted By: Benny69 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 You should edit the score though $;\)$ _________________________
Top

#180539 - 2007-09-13 03:20 PM Re: KiXgolf: A-to-Z - Public Round [Re: Jochen]
Benny69 Benny69 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 Jochen 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 Benny69 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 Jochen 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 DrillSergeant 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 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 Sealeopard 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 Lonkero 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

Previous Topic View All Topics

Index Next Topic

Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart

Hop to:

Shout Box

2023-12-29 [BradV] Happy new year!

2024-02-09 [RSLHA] No access possible!

2024-02-09 [RSLHA] Database Error!

2024-02-18 [Dr_Rick] What happened to Bruno

2024-03-08 [mole] Thanks for getting the posts back again.

2024-04-17 [MarineV] db errors

2024-04-18 [MarineV] will the db errors get fixed????

2024-04-26 [Tonny] database error, please!

2024-05-09 [NTDOC] I'm not seeing any errors

2024-05-31 [chojin] DB is down again $\:\($

2024-06-04 [selsner] Still no access, please help!

2024-06-07 [mole] Looks like DB is back again. Thanks.

2024-06-17 [It_took_my_meds] We encountered a problem. The reason reported was Database error only visible to forum administrators Please click back to return to the previous page.

2024-07-04 [Armin73] There is still a database error 🤷‍♂️

2024-07-09 [0neZero] There is still a database error 🤷‍♂️

2024-07-10 [Allen] DB working a few times in between the messages above. Working again as of 7/10. Thanks Doc

2024-08-31 [NetGnostic] Bummer, the Database error is back.

2024-09-04 [NTDOC] Fourms are back up without error for the moment

2024-10-02 [Arend_] Wll still have database errors ;-)

2024-10-03 [Allen] Thanks to Doc... it's back.

2024-12-09 [chojin] could we move kixtart to a new place in order to keep it living ? maybe create a github page and a subreddit?

2024-12-10 [Allen] do know about moving it, but I know Doc is aware of the DB issue. Should be back online soon.

2024-12-10 [Allen] don't know...

2025-02-09 [Comet] Greetings. I installed KiX on my new Windows 11 computer, and joined this foum. Hello World!

2025-02-10 [Allen] Welcome

2025-02-15 [Glenn Barnas] Discord? Reddit? New URL?

2025-03-07 [Comet] UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators

2025-06-30 [mole] Thanks for getting this working again.

2025-07-28 [mole] UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators

2025-08-01 [Arend_] I think it's fixed, I don't have the problem.

Search the board with:
superb Board Search
or try with google:

	Web kixtart.org