337:

Code:

Function F($)

Dim $m,$i,$j,$g,$k,$l,$u,$v,$a,$s,$p
$m=ubound($)
$l=2*len(join($,''))/($m+1)

for $i=0 to $m
 for $j=0 to $m

  $p=$[$i]+$[$j]

  if len($p) = $l
   $s=$s+','+$p
   $a=split(substr($s,2),',')

   $u=0
   for $k=0 to ubound($a)
    if ascan($a,$p,$k,1) >=0
     $u=1+$u
    endif
   next

   if $v <= $u
    $v=$u
    $g=1
    for $k=0 to $m
     if not instr($p,$[$k])
       $g=0
     endif
    next
    if $g
     $f=$p
    endif
   endif

  endif

 next
next

EndFunction
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...