Code:
KiXtart Engine
KiXtart Version = 4.50 (WKIX32.EXE)
KiXGolf Script = kixgolf_fragmentation.ki
Computer
OS = Windows 2000 Professiona
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 20:07:45.772
Processing End = 2005/10/06 20:10:12.022
Duration = 0000/00/00 00:02:26.250
Used Processor Time = 00:02:14.573
# Tests Run = 181
# Tests Passed = 181
# Tests Failed = 0
Result = passed
KiXGolf Score = 215
Thank you for participating in KiXtart Golf!
Press any key to continue...
Code:
Function f($)
dim $u,$i,$j
$u=ubound($)
while 1
dim $x[$u],$c
$f=''
for $j=1 to 2*len(join($,""))/($u+1)
$f=$f+rnd(1)
next
for $j=0 to $u
for $i=0 to $u
if 0= ($x[$i] | $x[$j] | $f<>$[$j]+$[$i] | $i=$j)
$c=$c+2
$x[$i]=1
$x[$j]=1
if $c>$u
exit
endfunction
