code:

---

feeling fleeing
snooped spooned
last salt slat
ablest bleats stable tables
UDF passed regular input array test
admirer married
aphrodite atrophied
perseus peruses
filets itself stifle
hoes hose shoe
ladder larded raddle
filters lifters stifler trifles
parental parlante paternal prenatal
portes poster presto repost
UDF passed another regular input array test
UDF passed empty input array test
UDF passed empty input string test
UDF passed no anagram input array test
The Anagram() UDF passed validation
kix32 Kixgolf3.kix $f=anagram_test.kix

KixGolf score = 441

---

This one will probably not count as this score is taking into account a bug that I found looking at the KiXGolf3.kix !!!

Here's the code, anyway:

code:

---

Function anagram($J)
  Dim $u,$,$,$b,$I,$O
  $u = Ubound($J)
  $I = S($J)

  For $ = 0 TO $u
    Dim $t[20]
    For $ = 1 TO Len($I[$])
      $t[$] = SubStr($I[$],$,1)
    Next
    $J[$] = Join(S($t))
  Next

  For Each $ IN $J
    Dim $c,$d
    For $ = 0 TO $u
      If $ = $J[$]
        $c = '$c ' + $I[$]
        $d = 1 + $d
        $J[$] = 0
      EndIf
    Next
    If $d > 1
      $O = "$O$b$d$c"
      $b = #
    EndIf
  Next

  $ = ''
  If $O
    $ = S(Split($O,#))
    For $ = 0 TO Ubound($)
      $[$] = SubStr($[$],3)
    Next
  EndIf

  $anagram = $
EndFunction
;
Function S($)
  Dim $
  For $S = 1 TO Ubound($)
    $ = $[$S-1]
    If $[$S] < $
      $[$S-1] =$[$S]  $[$S] =$
      $S = 0
    EndIf
  Next
  $S = $
EndFunction

---

code:

---

 
(Had to place inside code tags so I could use < and <=)
 
Well, KiXGolf does not include the 127th ASCII character (a < where a <= should 
be used!) on it's count for valid characters, so I made the following changes to 
the previously posted code:
 
 - In function S (and only there!) I replace all $t with $
 - In function Anagram, replaced all $a with $ (I used $a 'cause it's the one 
   that is used more times!)
 - Finally, I replaced $nagram back to the correct $anagram (that one got 
   caught in the above replace!)
 

---