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:31:15.674
Processing End = 2005/10/06 04:31:17.717
Duration = 0000/00/00 00:00:02.042
Used Processor Time = 00:00:00.981
# Tests Run = 180
# Tests Passed = 180
# Tests Failed = 0
Result = passed
KiXGolf Score = 218
Thank you for participating in KiXtart Golf!
Press any key to continue...
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]+aa
if len($t)=2+2*len(join($))/($f+1)
$o=$o+$t+$[$h]+$[$c]
endif
next
next
for each $ in split($o,a)
$h=ubound(split($o,$))
if $h>$t
$t=$h
$f=$
endfunction
