code:
function CDSorter($s, $m)
Dim $a, $b, $x, $z, $
do
$b = split($s,",")
$a = ubound($b)
do
$b[RND($a)]=0
$=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

code:
CD #1
Title = 70's Super Funk
Song #s = 1,7,8,9,10,14,16,19,20
CD Length = 44.6711
CD Gap = 0.3289
CD Gap [%] = 0.7309
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:48.734
Processing End = 2003/03/15 14:43:48.744
Duration = 0000/00/00 00:00:00.010

CD #2
Title = Partridge Family Unlimited
Song #s = 1,2,9,12,18
CD Length = 44.9179
CD Gap = 0.0821
CD Gap [%] = 0.1824
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:48.754
Processing End = 2003/03/15 14:43:48.794
Duration = 0000/00/00 00:00:00.040

CD #3
Title = Three Tenors in Antarctica, Again!
Song #s = 2,3,4,6,8,9,11,12,14,15
CD Length = 44.9741
CD Gap = 0.0259
CD Gap [%] = 0.0576
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:48.804
Processing End = 2003/03/15 14:43:48.834
Duration = 0000/00/00 00:00:00.030

CD #4
Title = Support Your Local KiXGolfer
Song #s = 11,27
CD Length = 44.2000
CD Gap = 0.8000
CD Gap [%] = 1.7778
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:48.844
Processing End = 2003/03/15 14:43:49.375
Duration = 0000/00/00 00:00:00.531

CD #5
Title = ABBA Bubba!
Song #s = 1,2,3,5,7,10,12,13,15,18,19,23,26,28,29,30
CD Length = 44.8102
CD Gap = 0.1898
CD Gap [%] = 0.4218
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.375
Processing End = 2003/03/15 14:43:49.405
Duration = 0000/00/00 00:00:00.029

CD #6
Title = Songs You Never Wanted Your Teenage Daughter To Know About
Song #s = 1,2,6,7,8
CD Length = 44.5000
CD Gap = 0.5000
CD Gap [%] = 1.1111
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.415
Processing End = 2003/03/15 14:43:49.415
Duration = 0000/00/00 00:00:00.000

CD #7
Title = Moon Rocks!
Song #s = 2,4,12,13,14,16,18,21,23,24,28,30,31,34,36
CD Length = 44.4539
CD Gap = 0.5461
CD Gap [%] = 1.2136
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.415
Processing End = 2003/03/15 14:43:49.455
Duration = 0000/00/00 00:00:00.040

CD #8
Title = Ruud's Favs
Song #s = 1,3,5,6,7,8,9,10,12,13,14,16,17,19,20
CD Length = 44.1609
CD Gap = 0.8391
CD Gap [%] = 1.8647
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.465
Processing End = 2003/03/15 14:43:49.465
Duration = 0000/00/00 00:00:00.000

CD #9
Title = MTV Presents: KiXtart Rulez!
Song #s = 1,3,8,10,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
27,28,29,30,31,32,33,34,35,36,38,39,40,41,43,45,46,47,50
CD Length = 44.2549
CD Gap = 0.7451
CD Gap [%] = 1.6558
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.475
Processing End = 2003/03/15 14:43:49.485
Duration = 0000/00/00 00:00:00.010

CD #10
Title = Songs From the Programmer's Abyss
Song #s = 1,3,4,5,7,8,9,10,13,14,15,16,17,20,21,24,26,27,29,31,
32,33,34,35,36,37,38,40,42,43,44,46,47,48,50
CD Length = 44.4987
CD Gap = 0.5013
CD Gap [%] = 1.1140
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.485
Processing End = 2003/03/15 14:43:49.495
Duration = 0000/00/00 00:00:00.010

CD #11
Title = Just Noise (100% Pure White Noise)
Song #s = 36,57,61,66,69
CD Length = 44.2500
CD Gap = 0.7500
CD Gap [%] = 1.6667
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:43:49.505
Processing End = 2003/03/15 14:44:00.482
Duration = 0000/00/00 00:00:10.977

CD #12
Title = Cazy Jens And the KIXGolfers
Song #s = 3,14,18,41,42,43,51,54,56,92,100
CD Length = 44.0777
CD Gap = 0.9223
CD Gap [%] = 2.0496
Req. CD Length = 44.0000
Result = CD has been filled
Processing Start = 2003/03/15 14:44:00.482
Processing End = 2003/03/15 14:44:00.682
Duration = 0000/00/00 00:00:00.199

Average CD Length = 44.48
Average Gap = 0.52
Average Gap [%] = 1.15

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

Computer
OS = Windows 2000 Professional
CPU = Intel Pentium III
Speed = 848 MHz
Memory = 511 MB

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXtart Golf Score
Tournament = KiXtart Golf: CD Sorter
Processing Start = 2003/03/15 14:29:09.753
Processing End = 2003/03/15 14:44:00.682
Duration = 0000/00/00 00:14:50.929
# Loops = 100
# Processed CDs = 12
# Valid CDs = 12
# Full CDs = 0
KiXGolf Result = Valid CD Filling
KiXGolf Score = 207

Thank you for participating in KiXtart Golf!

_________________________
Home page: http://www.kixhelp.com/hb/