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

Computer
OS               = Windows XP Professional
CPU              =               Intel(R) Pentium(R) 4 CPU 3.20GHz
Speed            = 3192 MHz
Memory           = 1024 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXGolf Score
Tournament       = Fragmentation
Processing Start = 2005/10/07 19:47:30.273
Processing End   = 2005/10/07 19:47:30.820
Duration         = 0000/00/00 00:00:00.547
# Tests Run      = 180
# Tests Passed   = 180
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 292
 
Thank you for participating in KiXtart Golf!

Function F($z)
 Dim $m,$l,$i,$j,$,$s,$a,$g,$k,$v
 $m=ubound($z)
 $l=2*len(join($z,''))/($m+1)
 for $i=0 to $m
  for $j=0 to $m
   $=$z[$i]+$z[$j]
   if len($) = $l
    $s=$s+#+$
    $a=split(substr($s,2),#)
    Dim $u
    for $k=0 to ubound($a)
     if ascan($a,$,$k,1) > -1
      $u=1+$u
     endif
    next
    if $v <= $u
     $v=$u
     for $k=0 to $m
      $g=instr($,$z[$k])
     next
     if $g
      $f=$
EndFunction