hoby, now it's your turn [Big Grin]
I bet you crack of one more...

anyway, just for sport, I post this:
code:
function CDSorter($w, $)
   Dim $x, $b
      do
         if $b<$ $x = split($w,",") endif
         $b=0.5
         Dim $z,$q,$
         for each $q in $x
            $=1+$
            if $q
               $b = $b + $q
               $z=$z+","+$
            endif
         next
         $x[RND($-2)]=0
         $CDSorter=substr($z,2)
      until $=$b
endfunction

Average CD Length = 44.54
Average Gap = 0.46
Average Gap [%] = 1.02

KiXtart
KiXtart Version = 4.21 Release Candidate 1
KiXGolf Script = kixgolf_cd.kix

Computer
OS = Windows 2000 Professional
CPU = Intel Pentium III
Speed = 797 MHz
Memory = 375 MB

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXtart Golf Score
Tournament = KiXtart Golf: CD Sorter
Processing Start = 2003/03/17 16:31:58.223
Processing End = 2003/03/17 16:32:03.050
Duration = 0000/00/00 00:00:04.827
# Loops = 1
# Processed CDs = 12
# Valid CDs = 12
# Full CDs = 0
KiXGolf Result = Valid CD Filling
KiXGolf Score = 181

Thank you for participating in KiXtart Golf!
_________________________
!

download KiXnet