quote:

---

Average CD Length = 44.30
Average Gap = 0.70
Average Gap [%] = 1.55

KiXtart
KiXtart Version = 4.20 Release Candidate 3
KiXGolf Script = kixgolf_cd.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium III
Speed = 730 MHz
Memory = 126 MB

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXtart Golf Score
Tournament = KiXtart Golf: CD Sorter
Processing Start = 2003/03/18 11:05:54.406
Processing End = 2003/03/18 11:05:54.843
Duration = 0000/00/00 00:00:00.436
# Loops = 1
# Processed CDs = 12
# Valid CDs = 12
# Full CDs = 0
KiXGolf Result = Valid CD Filling
KiXGolf Score = 171

Thank you for participating in KiXtart Golf!

---

code:

---

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

---