function f($)
  dim $h,$c,$o,$t,$a
  $f=ubound($)
  for $c=0 to $f
      for $h=$c+1 to $f
         $a=$[$c]+$[$h]
         if len($a)=2*len(join($,""))/($f+1)
              $o=$o + a +$a+ a+ $[$h]+$[$c]
         endif
      next
   next
  for each $ in split($o,a)
    $h=ubound(split($o,$))
    if $h>$t
      $t=$h
      $f=$
    ;endif
  ;next
endfunction

Quote:

---

KiXtart Engine
KiXtart Version = 4.50
KiXGolf Script = kixgolf_fragmentation.kix

Computer
OS = Windows XP Professional
CPU = Intel(R) Xeon(TM)
Speed = 2790 MHz
Memory = 1024 MB

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXGolf Score
Tournament = Fragmentation
Processing Start = 2005/10/05 20:40:41.411
Processing End = 2005/10/05 20:40:41.661
Duration = 0000/00/00 00:00:00.250
# Tests Run = 180
# Tests Passed = 180
# Tests Failed = 0
Result = passed
KiXGolf Score = 221

---