Page 4 of 8 « First<23456>Last »
Topic Options
#167898 - 2006-09-18 01:53 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
No need to ask. Shave one stroke and it is your's to post.
Top
#167899 - 2006-09-18 07:18 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Witto Offline
MM club member
*****

Registered: 2004-09-29
Posts: 1828
Loc: Belgium
Well, if you say so.
Code:

Function s($)
Dim $_, $0, $1
ReDim $s[($+1)*$+$]
$s[0] = " "
For $_ = 1 to $
$s[0] = W + $s[0] + B
Next
For $_ = 1 to Ubound($s)
$ = Split($s[$_-1]," ")
$0 = Right($[0],1)
$1 = Left($[1],1)
Select
Case InStr($[1],B)=2 AND $1 = W ;^B
$s[$_] = $[0] + B + $1 + " " + Right($[1],-2)
Case ($0 = B AND $1 = B AND InStr($[0],W)) OR ($0 = B AND InStr($[1],B) = 0) ;W^
$s[$_] = Left($[0],-2) + " " + $0 + W + $[1]
Case $0 = W AND ( InStr($[0],B)=0 OR InStr($[1],B)=0) ;W->
$s[$_] = Left($[0],~) + " W" + $[1]
Case 1 ;<-B
$s[$_] = $[0] + "B " + Right($[1],~)
;EndSelect
;Next
EndFunction


Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version = 4.53
KiXforms Version =
KiXGolf Script = kixgolf_shuttle.kix

Computer
OS = Windows XP Professional
CPU = Intel(R) Pentium(R) 4 CPU 3.00GHz
Speed = 2992 MHz
Memory = 512 MB

KiXGolf Scoring Engine
Scoring Engine = 3.2

KiXtart Golf Score
Tournament = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 07:13:36.218
Processing End = 2006/09/18 07:13:36.296
Duration = 0000/00/00 00:00:00.077
KiXGolf Score = 430

Thank you for participating in KiXtart Golf!


It is just that these things were so easy.

Top
#167900 - 2006-09-18 07:55 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Quote:

Current standings for the public round:
Code:

Rank Player Score
1 Jooel 238
2 DrillSergeant 240
Jooel 244
Jooel 245
3 Maciep 249
Jooel 272
4 RemcovC 275
RemcovC 279
Jooel 309
DrillSergeant 360
5 benny69 368
benny69 412
6 Jochen 472
7 Witto 790






So that means I can compete with my 'non-private' code (had it ready before end of private round, but missed the deadline for about one hour) ?
_________________________



Top
#167901 - 2006-09-18 08:13 AM Re: KiXgolf: Shuttle Puzzle - Public Round
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
I don't recall any rules about those not playing in the private round not being able to play in the public round.

Granted it would be impossible to win overall, but as I see it anyone can play in public round.

Also, if someone trims points off of code you or anyone else posts then they then get a lower score than the poster until such time as the poster or someone else posts lower code.

There is no PROPRIETARY RIGHTS to the code just as there was not in the PERLGolf challenges.

I'm not going to go back and read all the rules now, but I don't remember any rules like that, but if there are then I think they should be removed to be in the real spirit of the Perl Challenge this is modeled after.

Top
#167902 - 2006-09-18 08:44 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Right, if you say so, here's 414 of mine

Code:

function s($)
dim $_, $0, $1, $2
redim $s[$*($+2)]
$s[0] = " "
for $_ = 1 to $
$s[0] = W+$s[0]+B
next
for $_ = 1 to ubound($s)
$ = split($s[$_-1]," ")
$0 = right($[0],1)
$1 = left($[1],1)
$2 = instr($[1],B)
select
case $2=2 and $1=W ;^B
$s[$_] = $[0]+B+$1+" "+right($[1],-2)
case ($0=B and $1=B and instr($[0],W)) or ($0=B and $2=0) ;W^
$s[$_] = left($[0],-2)+" "+$0+W+$[1]
case $0=W and (instr($[0],B)=0 or $2=0) ;W->
$s[$_] = left($[0],~)+" W"+$[1]
case 1 ;<-B
$s[$_] = $[0]+"B "+right($[1],~)
;endselect
;next
endfunction



Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version = 4.53
KiXforms Version =
KiXGolf Script = KIXGOL~1.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.2

KiXtart Golf Score
Tournament = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 08:40:50.296
Processing End = 2006/09/18 08:40:50.609
Duration = 0000/00/00 00:00:00.313
KiXGolf Score = 414

Thank you for participating in KiXtart Golf!

_________________________



Top
#167903 - 2006-09-18 09:07 AM Re: KiXgolf: Shuttle Puzzle - Public Round
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
Quote:

do something?
adding extra stroke to the leading code would come up with 211.
how fair is that?




I know i'm new here, but I just want to give my opinion on this issue anyway

I totally agree with Jooel.
It's easy to take the lead score and modify it so you get 1 stroke more.
I can't count the times, in which I changed the lead script and got a 210 or a 211 as score.

I hadn't expected that my score of 213 counted, I dont think it's fair to do so. Jooel beat me with 210 half an hour earlier with the same (and even shorter) solution.
_________________________
It's better to have scripted and died, then to never have scripted at all

Top
#167904 - 2006-09-18 09:44 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
410

should RTFM from time to time

Code:

function s($)
dim $_, $0, $1, $2
redim $s[$*($+2)]
$s[0] = " "
for $_ = 1 to $
$s[0] = W+$s[0]+B
next
for $_ = 1 to ubound($s)
$ = split($s[$_-1])
$0 = right($[0],1)
$1 = left($[1],1)
$2 = instr($[1],B)
select
case $2=2 and $1=W ;^B
$s[$_] = $[0]+B+$1+" "+right($[1],-2)
case ($0=B and $1=B and instr($[0],W)) or ($0=B and $2=0) ;W^
$s[$_] = left($[0],-2)+" "+$0+W+$[1]
case $0=W and (instr($[0],B)=0 or $2=0) ;W->
$s[$_] = left($[0],~)+" W"+$[1]
case 1 ;<-B
$s[$_] = $[0]+"B "+right($[1],~)
;endselect
;next
endfunction

_________________________



Top
#167905 - 2006-09-18 09:49 AM Re: KiXgolf: Shuttle Puzzle - Public Round
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11623
Loc: CA
Well I don't agree and neither did the PERL community.

Bottom line is - IF someone somehow was able to write/re-write his/her or YOUR code and make it smaller, then they were able to think up something you were not able to think up (at least at the time).

That is sort of the whole idea of public coding, not to just see if you can lower your own code, but to get the lowest regardless of who's code used.

Top
#167906 - 2006-09-18 10:11 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
I am fully with you there Ron;
The only problem for me is that I have a hard time to even understand what I myself coded
_________________________



Top
#167907 - 2006-09-18 11:30 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
remco, your score actually was the reason why I started thinking about it.
I know you were coding with the same base code as I and you didn't just copycat my modifications, thus, I think you should have that score.
anyways...
if someone takes the leading code and takes another approach with it and that adds to the score, he still has almost leading score with his code.
it shouldn't be accepted though.
so, think this comes to trust in the end. if allowing higher scores, one has to be able to trust that no misbehavior occurs.

someone might remember way back when some nameless regular posted very low score with:
Code:

function blaah($input)
$blaah = readprofilestring("kixgolf.ini",$input,"correct answer")
endfunction



Top
#167908 - 2006-09-18 12:10 PM Re: KiXgolf: Shuttle Puzzle - Public Round
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
Shaved 3 of you're code
Code:
function s($)
dim $_, $0, $1, $2
redim $s[$*($+2)]
$s[0] = " "
for $_ = 1 to $
$s[0] = W+$s[0]+B
next
for $_ = 1 to $*($+2) ; = ubound($s)
$ = Split($s[$_-1])
$0 = right($[0],1)
$1 = left($[1],1)
$2 = instr($[1],B)
select
case $2=2 and $1=W ;^B
$s[$_] = $[0]+B+$1+" "+right($[1],-2)
case ($0=B and $1=B and instr($[0],W)) or ($0=B and $2=0) ;W^
$s[$_] = left($[0],-2)+" "+$0+W+$[1]
case $0=W and (instr($[0],B)=0 or $2=0) ;W->
$s[$_] = left($[0],~)+" W"+$[1]
case 1 ;<-B
$s[$_] = $[0]+"B "+right($[1],~)
;endselect
;next
endfunction

_________________________
It's better to have scripted and died, then to never have scripted at all

Top
#167909 - 2006-09-18 01:01 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
yay, obviously

2 more makes 405 :

Code:
 function s($)
dim $_, $0, $1, $2
redim $s[$*($+2)]
$s[0] = " "
for $_ = 1 to $
$s[0] = W+$s[0]+B
next
for $_ = 1 to $*($+2)
$ = split($s[$_-1])
$0 = right($[0],1)
$1 = left($[1],1)
$2 = instr($[1],B)
select
case $2 and $1=W ;^B
$s[$_] = $[0]+B+$1+" "+right($[1],-2)
case ($0=B and $1=B and instr($[0],W)) or ($0=B and $2=0) ;W^
$s[$_] = left($[0],-2)+" "+$0+W+$[1]
case $0=W and (instr($[0],B)=0 or $2=0) ;W->
$s[$_] = left($[0],~)+" W"+$[1]
case 1 ;<-B
$s[$_] = $[0]+"B "+right($[1],~)
;endselect
;next
endfunction



Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version = 4.53
KiXforms Version =
KiXGolf Script = KIXGOL~1.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.2

KiXtart Golf Score
Tournament = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 13:07:51.812
Processing End = 2006/09/18 13:07:52.265
Duration = 0000/00/00 00:00:00.453
KiXGolf Score = 405

Thank you for participating in KiXtart Golf!



Edited by Jochen (2006-09-18 01:10 PM)
_________________________



Top
#167910 - 2006-09-18 01:26 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
402

Code:
function s($)
dim $_, $0, $1, $2
redim $s[$*($+2)]
$s[0] = " "
for $_ = 1 to $
$s[0] = W+$s[0]+B
next
for $_ = 1 to $*($+2)
$ = split($s[$_-1])
$0 = right($[0],1)
$1 = left($[1],1)
$2 = instr($[1],B)
select
case $2 and $1=W ;^B
$s[$_] = $[0]+B+$1+" "+right($[1],-2)
case (BB=$0+$1 and instr($[0],W)) or ($0=B and $2=0) ;W^
$s[$_] = left($[0],-2)+" "+$0+W+$[1]
case $0=W and (instr($[0],B)=0 or $2=0) ;W->
$s[$_] = left($[0],~)+" W"+$[1]
case 1 ;<-B
$s[$_] = $[0]+"B "+right($[1],~)
;endselect
;next
endfunction




Code:

Shuttle Puzzle passed all 10 tests (100% correct)

KiXtart
KiXtart Version = 4.53
KiXforms Version =
KiXGolf Script = KIXGOL~1.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.2

KiXtart Golf Score
Tournament = KiXtart Golf: Shuttle Puzzle
Processing Start = 2006/09/18 13:23:22.359
Processing End = 2006/09/18 13:23:22.796
Duration = 0000/00/00 00:00:00.437
KiXGolf Score = 402

Thank you for participating in KiXtart Golf!

_________________________



Top
#167911 - 2006-09-18 01:59 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
thanks Jochen, 345
Code:

Function s($z)

Dim $,$a,$b,$c,$d,$e
ReDim $s[$z*($z+2)]

$=' '
For $a=1 to $z
$=W+$+B
Next
For $a=0 to $z*($z+2)
$s[$a]=$
$=Split($)
$b=$[0] ;Left
$c=$[1] ;Right
$d=Right($b,2) ;Right chrs of Left Half
$e=Left($c,2) ;Left chrs of Right Half
Select
Case $d=WB
$=Left($b,Len($b)-2)+' BW'+$c
Case $e=WB
$=$b+'BW '+Right($c,Len($c)-2)
Case Not($d=W Or $d=WW) And Left($e,1)=B
$=$b+'B '+Right($c,Len($c)-1)
Case 1
$=Left($b,Len($b)-1)+' W'+$c
;EndSelect
;Next

EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167912 - 2006-09-18 02:16 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Hey, you're welcome
_________________________



Top
#167913 - 2006-09-18 02:21 PM Re: KiXgolf: Shuttle Puzzle - Public Round
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
341 for you benny

Code:
Function s($z)

Dim $,$a,$b,$c,$d,$e

$=' '
For $a=1 to $z
$=W+$+B
$b=$b+$z+2
Next
ReDim $s[$b]
For $a=0 to $b
$s[$a]=$
$=Split($)
$b=$[0] ;Left
$c=$[1] ;Right
$d=Right($b,2) ;Right chrs of Left Half
$e=Left($c,2) ;Left chrs of Right Half
Select
Case $d=WB
$=Left($b,Len($b)-2)+' BW'+$c
Case $e=WB
$=$b+'BW '+Right($c,Len($c)-2)
Case Not($d=W Or $d=WW) And Left($e,1)=B
$=$b+'B '+Right($c,Len($c)-1)
Case 1
$=Left($b,Len($b)-1)+' W'+$c
;EndSelect
;Next

EndFunction/Code:





_________________________
It's better to have scripted and died, then to never have scripted at all

Top
#167914 - 2006-09-18 02:23 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
Jeez, you guys make me log in from work.

Rule 8) states that in the public round anybody can re-use anybody's code. This means that somebody who missed the private round submission deadline can still submit his code and have it count in the public round. This also means that anybody can take any of the codes posted in the public round and improve the code base to gain a better score. However, taking e.g. the best-scoring code, adding a stroke to then make second place will not count. You must improve the score in order to have it counted, plus only the best submission by any coder will count. Thus, nobody could take over multiple spots in the ranking.

Hope this clears it up.
_________________________
There are two types of vessels, submarines and targets.

Top
#167915 - 2006-09-18 02:44 PM Re: KiXgolf: Shuttle Puzzle - Public Round
RemcovC Offline
Starting to like KiXtart
*****

Registered: 2006-09-13
Posts: 174
Loc: Holland
And kicking a var brings benny's code down to 338

Code:
Function s($z)

Dim $,$a,$b,$c,$d

$=' '
For $a=1 to $z
$=W+$+B
$b=$b+$z+2
Next
ReDim $s[$b]
For $a=0 to $b
$s[$a]=$
$=Split($)
$b=$[0] ;Left
$c=$[1] ;Right
$d=Right($b,2) ;Right chrs of Left Half
$z=Left($c,2) ;Left chrs of Right Half
Select
Case $d=WB
$=Left($b,Len($b)-2)+' BW'+$c
Case $z=WB
$=$b+'BW '+Right($c,Len($c)-2)
Case Not($d=W Or $d=WW) And Left($z,1)=B
$=$b+'B '+Right($c,Len($c)-1)
Case 1
$=Left($b,Len($b)-1)+' W'+$c
;EndSelect
;Next

EndFunction

_________________________
It's better to have scripted and died, then to never have scripted at all

Top
#167916 - 2006-09-18 02:45 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Well, you know Jens,

Anytime I fire kixgolf_nameofthegame.kix the results (Score) will be written to kixgolf_nameofthegame_rules.txt.
That makes it hard to study the rules
_________________________



Top
#167917 - 2006-09-18 03:18 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

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

Top
Page 4 of 8 « First<23456>Last »


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

Who's Online
0 registered and 248 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.073 seconds in which 0.025 seconds were spent on a total of 12 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org