heading to bed, so must post my current score:
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 06:33:41.254
Processing End = 2005/10/07 06:35:37.050
Duration = 0000/00/00 00:01:55.795
Used Processor Time = 00:01:48.095
# Tests Run = 181
# Tests Passed = 181
# Tests Failed = 0
Result = passed
KiXGolf Score = 207
Thank you for participating in KiXtart Golf!
Press any key to continue...
Code:
Function f($u)
dim $,$i,$j,$c
$j=ubound($u)
while $c<$j
dim $x[$j]
$f='' $c=0
for $=1 to 2*(0^join($u,''))/($j+1)
$f=$f+rnd(1)
next
for $=0 to $j
for $i=0 to $j
if 1 ^ $x[$i] | $x[$] | $i=$ | $f<>$u[$]+$u[$i]
$c=$c+2
$x[$i]=1
$x[$]=1
Endfunction
