Code:
KiXtart Engine
KiXtart Version = 4.50 (WKIX32.EXE)
KiXGolf Script = kixgolf_fragmentation.kix
Computer
OS = Windows 2000 Professional
CPU = Intel Pentium III
Speed = 797 MHz
Memory = 376 MB
KiXGolf Scoring Engine
Scoring Engine = 3.0.3
KiXGolf Score
Tournament = Fragmentation
Processing Start = 2005/10/06 04:35:57.640
Processing End = 2005/10/06 04:36:01.415
Duration = 0000/00/00 00:00:03.775
Used Processor Time = 00:00:01.111
# Tests Run = 180
# Tests Passed = 180
# Tests Failed = 0
Result = passed
KiXGolf Score = 215
Thank you for participating in KiXtart Golf!
Code:
function f($)
dim $h,$c,$o,$t
$f=ubound($)
for $c=0 to $f
for $h=$c+1 to $f
$t = a+$[$c]+$[$h]
if len($t)=2*len(join($))/($f+1)
$o=$o+$t+a+$[$h]+$[$c]
endif
next
next
for each $ in split($o,a)
$h=ubound(split($o,$))
if $h>$t
$t=$h
$f=$
endfunction
