as nobody else wants to cut the scores, I guess I have to for the rest of us...
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/07 00:37:52.626
Processing End = 2005/10/07 00:40:11.255
Duration = 0000/00/00 00:02:18.629
Used Processor Time = 00:02:05.931
# Tests Run = 181
# Tests Passed = 181
# Tests Failed = 0
Result = passed
KiXGolf Score = 213
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 1 ^ $x[$i] | $x[$j] | $f<>$[$j]+$[$i] | $i=$j
$c=$c+2
$x[$i]=1
$x[$j]=1
if $c>$u
exit
endfunction
