code:

---

function CDSorter($s, $m)
   Dim $a, $x, $z, $, $b
   do
      $b = split($s,",")
      $a = ubound($b)
      do
         $b[RND($a)]=0
         $=0.
         for each $x in $b
            $ = $ + $x
         next
      until $ < $m
   until $ > $m-1
   for $=0 to $a
      if $b[$]
         $z=$z+","+($+1)
      endif
   next
   $CDSorter=substr($z,2)
endfunction

---

quote:

---

Average CD Length = 44.45
Average Gap = 0.55
Average Gap [%] = 1.22

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/15 22:28:27.395
Processing End = 2003/03/15 22:28:32.762
Duration = 0000/00/00 00:00:05.366
# Loops = 1
# Processed CDs = 12
# Valid CDs = 12
# Full CDs = 0
KiXGolf Result = Valid CD Filling
KiXGolf Score = 206

Thank you for participating in KiXtart Golf!

---