Well here is my base (with modifications) working with all tests:
Code:
function f($)
dim $h,$c,$o,$t,$z
$f=ubound($)
for $c=0 to $f
for $h=$c+1 to $f
$t = a+$[$c]+$[$h]
$z = a+$[$h]+$[$c]
if len($t)=2*len(join($))/($f+1)
$o=$o+$t
if $t<>$z
$o=$o+$z
endif
endif
next
next
for each $ in split($o,a)
$h=ubound(split($o,$))
if $h>$t
$t=$h
$f=$
endfunction
Code:
KiXtart Engine
KiXtart Version = 4.51
KiXGolf Script = kixgolf_fragmentation.KIX
Computer
OS = Windows XP Professional
CPU = AMD Athlon(tm) 64 Processor 3200+
Speed = 2002 MHz
Memory = 510 MB
KiXGolf Scoring Engine
Scoring Engine = 3.0.3
KiXGolf Score
Tournament = Fragmentation
Processing Start = 2005/10/09 18:08:36.484
Processing End = 2005/10/09 18:08:36.718
Duration = 0000/00/00 00:00:00.234
# Tests Run = 185
# Tests Passed = 185
# Tests Failed = 0
Result = passed
KiXGolf Score = 241
Thank you for participating in KiXtart Golf!
