code:

---

function CDSorter($a, $b)
   dim $
   do
      dim $u, $q, $t
      $ = 0.5 + $b
      for each $t in split($a, ",")
         $u=1+$u
         if rnd(2) & $ > $t
            $ = $ - $t
            $q = $q + "," + $u
         endif
      next
      $CDSorter = substr($q,2)
   until 1=$
endfunction

---

quote:

---

Average CD Length = 44.32
Average Gap = 0.68
Average Gap [%] = 1.51

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/18 19:01:33.109
Processing End = 2003/03/18 19:01:41.972
Duration = 0000/00/00 00:00:08.862
# Loops = 1
# Processed CDs = 12
# Valid CDs = 12
# Full CDs = 0
KiXGolf Result = Valid CD Filling
KiXGolf Score = 160

Thank you for participating in KiXtart Golf!

---