|
|
|||||||
Please post your code. Initial private round ranking to follow shortly. |
||||||||
|
|
|||||||
ok here is my 218 code: Code: ; begin A-to-Z ; ;! Function a($b,$c) Dim $,$d,$e $a=0 For Each $ in $b Dim $f For Each $d in $b If $<$d For $e = $d^0 to 2 Step -1 If $=$c[0]+Left(Right($,~),~)+$c[1] & ($^)-$f<$a | ~$a $a=($^)-$f $a=''+$a+' '+$ Else If Right($,$e)=Left($d,$e) $=$+' '+$d $f=$f+$e+1 ; EndIf ; EndIf ; Next ; EndIf ; Next ; Next EndFunction ;! ;! ; end A-to-Z |
||||||||
|
|
|||||||
Code: ; EndIf ; EndIf ; Next ; EndIf ; Next ; Next -27 Right there... You gotta love that. Nice job Dale. |
||||||||
|
|
|||||||
thanks pal |
||||||||
|
|
|||||||
Here's my 267: Code: ; begin A-to-Z ; ;! Function a($l,$t) dim $, $i, $j, $k, $m, $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] & $m>($^) | $m=0 $m = $^0 $a = '' + $m +' '+ $h[$j] EndFunction ;! ;! ; end A-to-Z Love your code benny! With that low score I thought you'd do some recursion magic or something. This is very clean and efficient! |
||||||||
|
|
|||||||
Here is my 234 (worth -28 on closing keywords) function a($b,$c) dim $,$d,$e $a=0 for each $ in $b if left($,1)=$c[0] 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 if right($,1)=$c[1] $g=($|)-$f if $g<$a|1>$a $a=''+$g+' '+$ endfunction |
||||||||
|
|
|||||||
Funny thing is, and I don't know if you two have realized, that if you change a test case with 3 resulting words to something like this,our codes will all fail miserably
|
||||||||
|
|
|||||||
Here is mine a bit rearranged: ; begin A-to-Z ; ;! function a($b,$c) dim $,$d,$e $a=0 for each $ in $b if left($,1)=$c[0] 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]&$g<$a|1>$a $a=''+$g+' '+$ endfunction ;! ;! ; end A-to-ZScores: 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 09:11:18.765 Processing End = 2007/09/13 09:11:18.781 Duration = 0000/00/00 00:00:00.016 KiXGolf Score = 233 Thank you for participating in KiXtart Golf! |
||||||||
|
|
|||||||
Originally Posted By: Jochen Funny thing is, and I don't know if you two have realized, that if you change a test case with 3 resulting words to something like this,our codes will all fail miserably <pre> [Test 8] Dictionary=ones,about,other,ideas,outside,against,students,added,education Input=a,s Output=11 about outside ideas </pre> Jochen, what do you mean? My code works fine with this test-case |
||||||||
|
|
|||||||
No it doesn't ... it returns "13 against students" (Note the changed dictionary sequence, 'outside' is now after 'ideas') |
||||||||
|
|
|||||||
Ah, I see. Yep, you're right. Hmmm, I'm really starting to harbor a resentment against our academic fellows too |
||||||||
|
|
|||||||
lol |
||||||||
|
|
|||||||
benny's 215: Code: ; begin A-to-Z ; ;! Function a($b,$c) Dim $,$d,$e $a=0 For Each $ in $b Dim $f For Each $d in $b If $<$d For $e = $d^0 to 2 Step -1 If $=$c[0]+Left(Right($,~),~)+$c[1] & ($^)-$f<$a | ~$a $a=''+(($^)-$f)+' '+$ Else If Right($,$e)=Left($d,$e) $=$+' '+$d $f=$f+$e+1 EndFunction ;! ;! ; end A-to-Z Your solution passed all tests KiXtart KiXtart Version = 4.52 KiXGolf Script = kixgolf_a2z.kix Computer OS = Windows XP Professional CPU = Intel Pentium Model 13 Speed = 798 MHz Memory = 1024 MB KiXGolf Scoring Engine Scoring Engine = 3.3 KiXtart Golf Score Tournament = A-to-Z Processing Start = 2007/09/13 11:33:00.765 Processing End = 2007/09/13 11:33:00.796 Duration = 0000/00/00 00:00:00.031 KiXGolf Score = 215 Thank you for participating in KiXtart Golf! Changed: $a = ($^)-$f $a=''+$a+' '+$ To $a=''+(($^)-$f)+' '+$ |
||||||||
|
|
|||||||
Arrgh... had the very same line in one of my earlier approaches and didn't see it in Dales |
||||||||
|
|
|||||||
Anyway, it could as well be a 214:
Score:
changed For $e = $d^0... to For $e = $^0 |
||||||||
|
|
|||||||
sharp! |
||||||||
|
|
|||||||
<< incorrect post >> |
||||||||
|
|
|||||||
not so Sweet! |
||||||||
|
|
|||||||
Wait, your 209 code fails the last test here (again the students) |
||||||||
|
|
|||||||
you sure? I've tested with this ini: Code: [Test 1] Dictionary=ones,against,students,about,outside,other,ideas,added,education Input=a,s Output=11 about outside ideas [Test 2] Dictionary=ones,against,students,about,outside,other,ideas,added,education Input=o,s Output=4 ones [Test 3] Dictionary=ones,against,students,about,outside,other,ideas,added,education Input=o,t Output=0 [Test 4] Dictionary=aaabb,aabbbb,bbbbz,abc,aza Input=a,z Output=7 aabbbb bbbbz [Test 5] Dictionary=aaabb,aabbbb,bbbbz,abc,az Input=z,a Output=0 [Test 6] Dictionary=able,lemmings,leeway,ayrton,senna,ayse,selfish,onset,short Input=a,t Output=9 ayrton onset [Test 7] Dictionary=kixtart,kixgolf,kixforms,script,editor,fun,tart,kita,lordi,halo Input=k,t Output=6 kita tart [Test 8] Dictionary=ones,outside,other,ideas,against,students,added,education,about Input=a,s Output=11 about outside ideas |
||||||||
|
|
|||||||
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 |
||||||||
|
|
|||||||
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+' '+$ endfunctionScore: 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! |
||||||||
|
|
|||||||
dang! you guys are ripp'n it up, Nice! |
||||||||
|
|
|||||||
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... |
||||||||
|
|
|||||||
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... |
||||||||
|
|
|||||||
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... |
||||||||
|
|
|||||||
Nice one ... it's nearly yours now though |
||||||||
|
|
|||||||
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 |
||||||||
|
|
|||||||
ours is so close we even used the same vars |
||||||||
|
|
|||||||
On the other hand .... Here is "mine" for 214
Score:
See? We only swapped the conditions in comparison with yours |
||||||||
|
|
|||||||
Lol, wasted my time on a neat layout ... anyway, already have posted a 214 score some time ago |
||||||||
|
|
|||||||
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 |
||||||||
|
|
|||||||
Edited, thanks |
||||||||
|
|
|||||||
214 seems to be the dead end here |
||||||||
|
|
|||||||
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... |
||||||||
|
|
|||||||
You can't let go, eh? |
||||||||
|
|
|||||||
I'm waiting for Jooel to break the 200 |
||||||||
|
|
|||||||
well, lets start slow...
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 |
||||||||
|
|
|||||||
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. |
||||||||
|
|
|||||||
I did participate! I didn't get a working solution, but for sure I did use around 3 hours coding and posting in total. |
||||||||
|
|
|||||||
oh and I think some old cd-sorter or another one around that is the first time I failed to participate in private round. and before that, some golf passed by without me even knowing about it. |
||||||||
|
|
|||||||
Clever basta! |
||||||||
|
|
|||||||
but I is clever too
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 $=join($c,left(right($,~),~))&($|)-$f<$a|~$a $a=''+(($|)-$f)+' '+$ endfunction |
||||||||
|
|
|||||||
damn, that's clever! Quote: join($c, Left(Right($,~),~)) |
||||||||
|
|
|||||||
Ja, but I suspect Jooel to come up with something we have overlooked |
||||||||
|
|
|||||||
Jooel, I was trying to figure out a way to get rid of the Step, Basta! Jochen, you Dawg! you have been holding back. |
||||||||
|
|
|||||||
Nah, not really, posted as figured out, I swear. |
||||||||
|
|
|||||||
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...
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=-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 |
||||||||
|
|
|||||||
Yeah, that is dirty Golf |
||||||||
|
|
|||||||
|
||||||||
|
|
|||||||
|
||||||||
|
|
|||||||
I ordered this recently |
||||||||
|
|
|||||||
LOL!, Flat-top Tees |
||||||||
|
|
|||||||
Originally Posted By: Jochen 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... you mean maximum length? |
||||||||
|
|
|||||||
ummm, yep. |
||||||||
|
|
|||||||
ok, I can't go down with out a fight 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 $=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... |
||||||||
|
|
|||||||
so....
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 $=Join($c,SubStr($,2,$e)) & $e-$f<$a | ~$a $a=''+(($^)-$f)+' '+$ Else If Right($,$e)=Left($d,$e) $=$+' '+$d $f=$f+$e+1 EndFunction |
||||||||
|
|
|||||||
wait a second. is nobody fighting anymore???? |
||||||||
|
|
|||||||
fighting, but i'm just not the sharpest tool in the shed |
||||||||
|
|
|||||||
well, you are quite sharp. |
||||||||
|
|
|||||||
I would agree with that too. Seems to me that someone wrote a pretty big KFD tool from KiX with not too much help. |
||||||||
|
|
|||||||
I second that! Haven't got any time yesterday as it was my youngest doughter's school enrollment day Hmmm ... so I am thrown back in 3rd place, eh? Well, I can't tell if I'll find something with that short time left, but anyway, it would be my best result ever. Quote: $=Join($c,SubStr($,2,-$e)) stunningly sharp one Quote: -$e-$f<$a This one works only coincidentally, because of the way the input is given, no? Edit... No, it is working intentionally .... clever, very clever! |
||||||||
|
|
|||||||
Still, we haven't heard Jens on the absolute loop value case... So, until this is the case, here is another preliminary post:
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=-99 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 endfunction |
||||||||
|
|
|||||||
Hmmm ... my odds are not so bad this time as the longest word in a major English dictionary is Pneumonoultramicroscopicsilicovolcanoconiosis with 45 characters and I count from 99 |
||||||||
|
|
|||||||
However the longest published english language word (not published in a dictionary) is to long to be posted here But can be found here for the curious http://www.othyr.com/titin.html 189,819 letters |
||||||||
|
|
|||||||
Public round is now closed. Final results will be posted tomorrow. |
||||||||
|
|
|||||||
As said, I shall be happy in any case Edit: My post about the length of a single word is of course futile as it originally loops the length of the resulting string |
||||||||
|
|
|||||||
k, waiting for the score... |
||||||||
|
|
|||||||
Final results... 1) All codes suffered from the same problem in that the sequencing of the words in the test cases did matter 2) As far as I can understand the main question regarding word length is actually regarding how many letters can overlap between two different words. I have not found evidence of normal words where more than eigth letters overlap. Thus, test cases will not be modified to take either of the issues into account. All posted codes pass the posted test cases. Here's a potential additional rule to take into account the issues above: Additional test cases can be added during the private round by submitting a proposal for a new test case to the BBS. The proposed test case becomes official once it has been added to the existing test cases and the KiXgolf package has been reposted for download. If new test cases are added within 12 hours of private round end the private round will extend by an additional 24 hours. The public round will then start one day later and also end one day later. Not additional test cases will be added during the public round. Other rules would be modified as necessary in order to accomodate this new rule. So, and now the final results of the public round: Code: Jochen .......... 204 (5 points) Jooel ........... 205 (4 points) Benny69 ......... 206 (3 points) DrillSergeant ... 215 (2 points) Jochen is therefore the winner of the public round. Final results of both rounds combined and thus the winner of "KiXgolf A-Z" is Jochen Code: Player | Score |Participation | Private |Public|Grand |Private Public| Bonus |Bonus Points|Points|Totals --------------+---------------+--------------+-------------+------+------ Jochen | 234 204 | 1 | 1 4 | 5 | 11 Benny69 | 218 206 | 1 | 1 5 | 3 | 10 DrillSergeant | 267 215 | 1 | 1 3 | 2 | 7 Jooel | N/A 205 | 1 | 1 0 | 4 | 6 |
||||||||
|
|
|||||||
Congrats Jochen! |
||||||||
|
|
|||||||
yeah, jochen, you are the master guru! |
||||||||
|
|
|||||||
Woohooo!!! |