ajh, sorry.
I' doing this just to tease you.
as winner of last golf I have to keep up the fight.
sadly brianTX isn't here as he would have been fighting it to 450.

anyway, 471 is current score with simple change as:
code:
FUNCTION anagram($J)
DIM $u, $,$a,$b,$c, $I,$O
$u = UBound($J)
$I = S($J)

FOR $ = 0 TO $u
  DIM $t[20]
  FOR $a = 1 TO Len($I[$])
    $t[$a] = Substr($I[$],$a,1)
  NEXT
  $J[$] = Join(S($t),'')
NEXT

FOR EACH $a IN $J
  DIM $c,$d
  FOR $ = 0 TO $u
    IF $a = $J[$] and $a
      $c = '$c ' + $I[$]
      $d = 1 + $d
      $J[$] = 0
    ENDIF
  NEXT
  IF $d > 1
    $O = $O +$b+ Chr($d)+$c
    $b = #
  ENDIF
NEXT

$ = ''
IF $O
  $ = S(Split($O,#))
  FOR $a = 0 TO Ubound($)
    $[$a] = Substr($[$a],3)
  NEXT
ENDIF
$anagram = $
ENDFUNCTION
;
FUNCTION S($)
DIM $t
FOR $S = 1 TO UBound($)
  $t = $[$S-1]
  IF $[$S] < $t
    $[$S-1] =$[$S]  $[$S] =$t
    $S = 0
  ENDIF
NEXT
$S = $
ENDFUNCTION
BTW, thanks for giving me a lesson.
we all need to learn if we want to really understand something.
I quess you are to reduce the score, but I'll rest knowing I learned something today.
thanks.

[ 23. August 2002, 01:54: Message edited by: Lonkero ]
_________________________
!

download KiXnet