code:

---

Function CDSorter($, $G)
  $=split($,",")
  $G=0.+$G,""
  $=P($,ubound($)+1,$G)
  $CDSorter=substr($[1],2)
Endfunction
Function P($S,$I,$)
  If $I       ;If $I and $[0]>=0 is more efficient
    $P=P($S,$I-1,$)
    $=$[0]-$S[$I-1],$[1]+","+$I
    $=P($S,$I-1,$)
    $=IIF($P[0]<$[0],IIF($P[0]<0,$,$P),IIF($[0]<0,$P,$))
  Endif
  $P=$
Endfunction

---

Score=275
Revised Score=253

When using this script I ran into several problems. First, it doesn't generate optimal results consistently. I manually checked some of the results & Richard's brute force tecgnique gives correct results consistently but this one doesn't. The difference between the methods is small but they exist. Why this occurring, I am not certain. I tried putting the CDbl function around every subcomponent used in the gap calculation but this did not eliminate the problem. My best guess, is that when kixtart passes arrays back & forth through the function call, it must do some internal data conversion based upon what values are actually in the array not what I declare them to be. Also, the problem seems to be in the returning array not in the passed down array.

The second problem occurs because I can not get this script to shutdown. When, I try to use the Task Manager in my Win2000 OS to shut it down, my OS crashes. This is the first time, I have ever crashed Win2000.

Richard,

I see you & I were thinking along similar lines. I thought of using global variables but I thought that was sort of cheating because in my mind that is not truly an UDF. So I used your trick of passing arrays up & down instead.

Also, Richard after seeing your script, I think that I see why my script is not working consistently. This might be the same problem we ran into in an earlier kixgolf competition which indicated Kixtart arithmatic didn't function well when "if testing" 2 floating point numbers that are very close together. Kixtart hates floatng point! Greer!

[ 18. March 2003, 20:32: Message edited by: Jack Lothian ]

code:

---

function CDSorter($w, $)
   Dim $x, $b
   do
      $x = split($w,",")
      do
         $b=0.
         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 < $
   until $b > $-1
endfunction

---

code:

---

Average CD Length = 44.43
Average Gap       = 0.57
Average Gap [%]   = 1.26

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/16 16:01:26.692
Processing End      = 2003/03/16 16:01:29.416
Duration            = 0000/00/00 00:00:02.723
# Loops             = 1
# Processed CDs     = 12
# Valid CDs         = 12
# Full CDs          = 0
KiXGolf Result      = Valid CD Filling
KiXGolf Score       = 182
 
Thank you for participating in KiXtart Golf!

---

code:

---

function CDSorter($a, $b)
   dim $c, $, $u,$p, $t
   $c = split($a, ",")
   $u = ubound($c)
   srnd(@TICKS)
   do
      $ = rnd($u)
      $p = 0.0
      redim $a[$] 
      do
         $t = rnd($u)+1
         if ascan($a, $t)<0
            $p = $p + $c[$t-1]
            $a[$] = $t
            $=$-1
         endif
      until $ < 0 
         
   until $p>$b-1 and $p < $b 
   $CDSorter = join($a,",")
endfunction

---

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

---

code:

---

if $b<$ $x = split($w,",") endif

---

quote:

---

[CD13]
Title=Lonkero's Test
Songs=1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1.0,1. 0,1.0,1.0,1.0,1.0,1.0,1.0

---

quote:

---

[CD13]
Songs=1,2,3,4,5,6,7,8,9,10,11,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,37,38,39,40,41,42,43,44,45

---

Excellent job!

{edit} The above code causes an infinite loop but not for the reason stated. It appears that the rescoped "$" falls out of scope until the next DIM statement. When the loop restarts "$" again is equal to 45.

The even minute songs have a problem with the auto-rounding feature.

Here is the loop evaluting the IF condition.

code:

---

50.5<45
49.5<45
48.5<45
47.5<45
46.5<45
45.5<45 This does not exit the until $=$b (45=46)
44.5<45 reset array

---