code:

---

; beginning of the Anagram() UDF and supporting UDFs
;!
function anagram($)
  dim $c, $d, $e, $b, $a, $i, $o, $f

  if ubound($)<0
    $f=''
  else
    $=s($)

    $i=ubound($)

    $f=$
    for $c=0 to $i
      $o=$[$c]
      redim $l[25]
      for $b=1 to len($o)
        $a=asc(substr($o,$b,1))-97
        $l[$a]=$l[$a]+1
      next
      $f[$c]=join($l)
    next

    for $c=0 to $i-1
      for $d=$c+1 to $i
        if $f[$c]=$f[$d] and $[$d]
          $[$c]=$[$c]+' '+$[$d]
          $[$d]=''
        endif
      next
    next

    $o=$
    for $c=0 to $i
      $d=split($[$c])
      if ubound($d)
        $o[$c]=right('0'+ubound($d),2)+$d[0]
      endif
    next

    $o=s($o)

    $f=$
    $e=0
    for $c=0 to $i
      for $d=0 to $i
        $b=substr($o[$c],3)
        if $b=split($[$d],' ')[0] and $b
          $f[$e]=$[$d]
          $e=$e+1
        endif
      next
    next
    if $e
      redim preserve $f[$e-1]
    else
      $f=''
    endif

  endif

  $anagram=$f

endfunction
function s($)
  dim $i,$j,$k,$m,$n
  $k=ubound($)
  for $i = 0 to $k
    for $j = $i + 1 to $k
      $m = $[$i]
      $n = $[$j]
      if $n < $m
        $m = $n
        $[$j] = $[$i]
        $[$i] = $m
      endif
    next
  next
  $s = $
endfunction
;!
;!
; end of the Anagram() UDF and supporting UDFs

---

code:

---

FUNCTION anagram($J)
DIM $u, $,$a,$b,$c, $I,$O
$u = UBound($J)
$I = S($J)  ; Sort the Input array
;
; Create anagram ID's for checking
FOR $ = 0 TO $u
  DIM $t[20]   ; Len($I[$])
  FOR $a = 1 TO Len($I[$])
    $t[$a] = Substr($I[$],$a,1)
  NEXT
  $J[$] = Join(S($t),'')
NEXT
;
; Get anagrams into a new array
;$O = ''  $b = ''
FOR EACH $a IN $J                 ; for each anagram id
  DIM $,$d
  FOR $c = 0 TO $u
    IF $a = $J[$c]  AND $a        ; If matches anagram id and word not null
      $ = $ + ' ' + $I[$c]        ; add word to line (already sorted)
      $d = 1 + $d                 ; Increment word count
      $J[$c] = 0                  ; prevent it being selected again
    ENDIF
  NEXT
  IF $d > 1                       ; More than 1 word in anagram line
    $O = $O +$b+ Chr($d)+$        ; Add <word count>+<line>
    $b = #                        ; Char to split lines on
  ENDIF
NEXT
;
$ = ''
IF $O
  $ = S(Split($O,#))              ; Sort by Word count / Alpha
  FOR $a = 0 TO Ubound($)
    $[$a] = Substr($[$a],3)       ; Remove words counter
  NEXT
ENDIF
$anagram = $
ENDFUNCTION
;
;
FUNCTION S($)       ;Sort routine
DIM $i,$t
FOR EACH $i IN $
  FOR $i = 1 TO UBound($)
    $t = $[$i-1]
    IF $[$i] < $t
      $[$i-1] =$[$i]  $[$i] =$t
    ENDIF
  NEXT
NEXT
$S = $
ENDFUNCTION

---

code:

---

Function Anagram($)
   Dim $a, $d, $i, $j, $k, $m, $n, $o, $t, $u, $x, $y, $w

   $x = ubound($)
   $u=$
   gosub T
   $y=0
   for $i=0 to $x-1
      if $[$i]
         $w=0
         $u[$w] = $[$i]
         for $j=$i+1 to $x
            if S($[$i])= S($[$j])
               $w=$w+1
               redim preserve $u[$w], preserve $k[$y], preserve $m[$y]
               $u[$w] = $[$j]
               $[$j] = 0
            endif
         next

         if $w>0
            $k[$y] = $w
            $m[$y] = join($u," ")
            $y=$y+1
         endif
      endif
   next

   $x=$y-1
   $ = $k
   $u = $m
   gosub T

   $Anagram =$u

   :T
      Do
         $n=0
         for $a=0 to $x-1

            if $[$a]>$[$a+1]
               $n=$[$a]
               $o=$U[$a]

               $[$a]=$[$a+1]
               $U[$a]=$U[$a+1]

               $[$a+1]=$n
               $U[$a+1]=$o
            endif
         next
      Until $n=0
   return

Endfunction

Function S($)
   Dim $b, $c, $i, $y
   do
      $y=1
      for $i=1 to len($)-1
         $b=substr($,$i,1)
         $c=substr($,$i+1,1)
         if $b > $c
            $ = left($,$i-1) + $c + $b + substr($,$i+2)
            $y=0
         endif
      next
   until $y
   $S=$
Endfunction
 

---

code:

---

function anagram($o)
dim $w,$c,$a,$l,$,$m,$b
 for $=1 to ubound($o)
  if $o[$]<$o[$-1]
   $c=$o[$] $o[$]=$o[$-1] $o[$-1]=$c $=0
  endif
 next
 for each $w in $o
  $b=0
  for each $ in $o
   $c=$
   for $l=1 to len($w)
    $a=instr($,substr($w,$l,1))
    $=left($,$a-1)+substr($,$a+1)
   next
   if 0=($|len($c)+1-$l)
    $b="$b $c"
   endif
  next
  if 1<ubound(split($b)) & 0=instr($m,$b)
   $m="$m$b"
  endif
 next
 $=split(substr($m,3),"0 ")
 for $m=1 to ubound($)
  if ubound(split($[$m]))<ubound(split($[$m-1]))
    $o=$[$m] $[$m]=$[$m-1] $[$m-1]=$o $m=0
  endif
 next
if 0=len($[0]) $="" endif
$anagram=$
endfunction

---

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 $ IN $J
  DIM $a,$d
  FOR $c = 0 TO $u
    IF $ = $J[$c]  AND $
      $a = '$a ' + $I[$c]
      $d = 1 + $d
      $J[$c] = 0
    ENDIF
  NEXT
  IF $d > 1
    $O = $O +$b+ Chr($d)+$a
    $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 EACH $s IN $
  FOR $s = 1 TO UBound($)
    $t = $[$s-1]
    IF $[$s] < $t
      $[$s-1] =$[$s]  $[$s] =$t
    ENDIF
  NEXT
NEXT
$S = $
ENDFUNCTION

---

code:

---

Function Anagram($A)
 Dim $B,$C,$I,$T,$E,$,$R,$Q,$X,$Y
 $B=Ubound($A)
 $A=S($A,$B)
 For Each $C in $A
  $X=0
  $Y=""
  If $C
   For $E=0 To $B
    $R=$A[$E]
    If Len($R)=Len($C)
     For $T=1 To Len($C)
      $Q=InStr($R,SubStr($C,$T,1))
      If $Q
       $R=Left($R,$Q-1)+"."+SubStr($R,$Q+1)
      Else
       Goto M
      EndIf
     Next
     $Y=$Y+" "+$A[$E]
     $X=$X+1
     $A[$E]=""
:M
    EndIf
   Next
   If $X>1
    $A[$]=""+$X+$Y
    $=$+1
   EndIf
  EndIf
 Next
 If $
  $=$-1
  $A=S($A,$)
  ReDim Preserve $A[$]
  For $I=0 To $ $A[$I]=SubStr($A[$I],3) Next
 Else
  $A=""
 EndIf
 $Anagram=$A
EndFunction
Function S($A,$R)
 Dim $T,$E,$
 Do
  $E=1
  For $=1 to $R
   If $A[$]<$A[$-1]
    $T=$A[$]
    $A[$]=$A[$-1]
    $A[$-1]=$T
    $E=0
   EndIf
  Next
 Until $E
 $S=$A
EndFunction

---

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 $,$d
  FOR $c = 0 TO $u
    IF $a = $J[$c]  AND $a
      $ = $ + ' ' + $I[$c]
      $d = 1 + $d
      $J[$c] = 0
    ENDIF
  NEXT
  IF $d > 1
    $O = $O +$b+ Chr($d)+$
    $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

---

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

---

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[$]
      $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

---

code:

---

Function anagram($J)
Dim $u,$,$a,$b,$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[$]
      $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

---

code:

---

Function anagram($J)
  Dim $u,$,$a,$b,$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[$]
        $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

---

code:

---

Function anagram($J)
  Dim $u,$,$a,$b,$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[$]
        $c = '$c ' + $I[$]
        $d = 1 + $d
        $J[$] = 0
      EndIf
    Next
    If $d > 1
;-->      $O = $O +$b+ Chr($d)+$c
      $O = $O +$b+ '$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

---

code:

---

Function anagram($J)
  Dim $u,$,$a,$b,$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[$]
        $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 $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

---

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!)
 

---

code:

---

function anagram($) dim $a for $a=1 to 10 next $anagram=0 endfunction

---

code:

---

; KixGolf.kix  (Version 3)
;
; V 3.0.1	(2002/08/23@18:30) - Fernando Madruga
;		Fixed handling of CHR(127) and added version info
;
; This function scores the specified file and returns
; the KixGolf score. That is the total number of key strokes
; used to build a script not counting comments, spaces, tabs,
; or any ASCII character above 126.
;
; The script will start counting on "odd" (1,3,5,...) occurrences
; of ";!" and the script will stop counting after "even" (0,2,4,...)
; instances of ";!". Note that ";!" must be placed starting in column
; number 1.
;
;A debug mode has been added in this version. The debug mode
;is controlled with the use of ";~" at the beginning of the line like
; the count controller (;!) above. You start and stop debugging
;as many time as you like while counting is enabled.
;
;Debug data is written to a file in the same directory that this
;program resides. The file name is that of the target file name with
;".debug" as an extension. Data will only be written while counting is
;active.
;
;The data written if the character being analyzed, it's ASCII decimal
;value, if it was counted or not, and a running total.
;
;Syntax: %tmp%\kix32 kixgolf.kix $F=Kixgolf.kix
;


; $F must be initialized on the command line.
; Syntax: kix32 kixgolf.kix $F=test.kix
?
? "KixGolf score = " + KixGolf($F)
?

;!
Function KixGolf($F)
   $debugfile=@ScriptDir+"\"+$F+".debug"
   Del $debugfile
   $Line=0
   $Y=0 $D=0 $S=0
   if open (1,$F) = 0
      Do
         if $L
            $Line = $Line + 1
            $ZZ = (left($L,2)=";~")
            $debug = $debug + $ZZ & 1
            if $debug & $olddebug<>$debug
               WriteLog2($debugfile,"Debug Started at Line: " + $Line,1)
               WriteLog2($debugfile,"--------------------------------------------------")
               $olddebug=$debug
            endif
            if not $debug & $olddebug<>$debug
               WriteLog2($debugfile,"--------------------------------------------------")
               WriteLog2($debugfile,"Debug Stopped at Line: " + $Line,1)
               $olddebug=$debug
            endif
            $Z = (left($L,2)=";!")
            $Y = $Y + $Z & 1
            if not $Z & not $ZZ
               $x=len($L)
               for $h=1 to $x
                  $A=asc(substr($L,$h,1))-32
                  $D = $D + ($A=2) & 1 & not $S
                  $S = $S + ($A=7) & 1 & not $D
                  if $debug
                     $Q = $D | $S
                     if $Q<>$oldQ
                        if $Q
                           WriteLog2($debugfile,"Quotes ON at: " + chr($A+32))
                        else
                           WriteLog2($debugfile,"Quotes OFF at: " + chr($A+32))
                        endif
                     endif
                     $oldQ=$Q
                  endif
                  if not $D & not $S & ($A=27)
                     $h=$x+1
                     if $debug
                        WriteLog2($debugfile,chr($A+32) + " " + ($A+32) + " Count=0 ")
                        $text="Comment found.  Ignore to EOL. Next character should be" +
                              " 1st char of new line."
                        WriteLog2($debugfile,$text)
                     endif
                  else
                     $=$+($Y & (($A>0 & $A<96) | $D | $S))
                     if $debug
                        $text=chr($A+32) + " " + ($A+32) + " Count=" +
                           ($Y & (($A>0 & $A<96) | $D | $S)) + "  " + $
                        WriteLog2($debugfile,$text)
                     endif
                  endif
               next
            endif
         endif
         $L=ReadLine(1)
      Until @error
   else
      "Bad File Name: $F" ?
      $="NA"
   endif
   if $D | $S
      ? "Mis-matched quotes. Probable score error." ?
   endif
   if $olddebug
         ? "Debug File: " +$debugfile ?
   endif
   $KixGolf=$
EndFunction

;--------------------------------------------------------------------------------------------------
;FUNCTION         WriteLog2()
;
;AUTHOR           Howard A. Bullock (hbullock@tycoelectronics.com)
;
;ACTION           Generic logging facility for scripts. Appends log entry to a file with an
;                 optional TimeStamp.
;
;SYNTAX           WriteLog2($File, $text, [0|1])
;
;PARAMETERS       $File (Required) -  String value
;                 $text (Required) -  String value
;                 $TimeStamp (Optional) Default(0) no TimeStamp (1 or 0)
;
;
;REMARKS          This function writes (appends) an optionally time stamped log entry to the file
;                 defined in function. This function searches for the first unused file handle,
;                 open the file, and write the entry. The file handle is then closed. When the
;                 function is unable to perform its it write the error is displayed in a message box.
;
;RETURNS          Nothing
;
;DEPENDENCIES     None
;
;EXAMPLES         WriteLog2("junk.txt","This is a test")
;                 WriteLog2("junk.txt","This is a test",0)
;                 WriteLog2("junk.txt","This is a test",1)
;
;
Function WriteLog2($File, $Text, optional $TimeStamp)
   dim $RC, $File, $text, $FH, $TimeStamp
   $FH=1
   $RC=Open ($FH, $File, 5)
   while $RC = -3
      $FH=$FH +1
      $RC=Open ($FH, $File, 5)
   Loop
   Select
      Case $RC=0
            if ($TimeStamp=1)
               $TimeStamp = @Date + " " + @Time + " - "
            else
               $TimeStamp = ""
            endif
            $RC=Writeline ($FH, $TimeStamp + $Text + @CRLF)
            $RC=Close ($FH)
      Case $RC=-2
         $text = "WriteLog2: Invalid file handle ($FH) specified when trying to Open $File."
         $RC=MessageBox ($text,"Script Error",48)
      Case $RC=-1
         $text = "WriteLog2: Invalid file name ($File) specified for log file."
         $RC=MessageBox ($text,"Script Error",48)
      Case $RC=>0
         $text = "System Error($RC) while attempting to open log file ($File)."
         $RC=MessageBox ($text,"Script Error",48)
   Endselect
EndFunction
;--------------------------------------------------------------------------------------------------

---

code:

---

; KixGolf.kix  (Version 3)
;
$Version = "3.0.2"	; (2002/08/23@18:45) - Fernando Madruga
			; Now prints the version code with the score
;
; V 3.0.1	(2002/08/23@18:30) - Fernando Madruga
;		Fixed handling of CHR(127) and added version info
;
; This function scores the specified file and returns
; the KixGolf score. That is the total number of key strokes
; used to build a script not counting comments, spaces, tabs,
; or any ASCII character above 126.
;
; The script will start counting on "odd" (1,3,5,...) occurrences
; of ";!" and the script will stop counting after "even" (0,2,4,...)
; instances of ";!". Note that ";!" must be placed starting in column
; number 1.
;
;A debug mode has been added in this version. The debug mode
;is controlled with the use of ";~" at the beginning of the line like
; the count controller (;!) above. You start and stop debugging
;as many time as you like while counting is enabled.
;
;Debug data is written to a file in the same directory that this
;program resides. The file name is that of the target file name with
;".debug" as an extension. Data will only be written while counting is
;active.
;
;The data written if the character being analyzed, it's ASCII decimal
;value, if it was counted or not, and a running total.
;
;Syntax: %tmp%\kix32 kixgolf.kix $F=Kixgolf.kix
;


; $F must be initialized on the command line.
; Syntax: kix32 kixgolf.kix $F=test.kix
?
? "KixGolf v" + $Version + " score = " + KixGolf($F)
?

;!
Function KixGolf($F)
   $debugfile=@ScriptDir+"\"+$F+".debug"
   Del $debugfile
   $Line=0
   $Y=0 $D=0 $S=0
   if open (1,$F) = 0
      Do
         if $L
            $Line = $Line + 1
            $ZZ = (left($L,2)=";~")
            $debug = $debug + $ZZ & 1
            if $debug & $olddebug<>$debug
               WriteLog2($debugfile,"Debug Started at Line: " + $Line,1)
               WriteLog2($debugfile,"--------------------------------------------------")
               $olddebug=$debug
            endif
            if not $debug & $olddebug<>$debug
               WriteLog2($debugfile,"--------------------------------------------------")
               WriteLog2($debugfile,"Debug Stopped at Line: " + $Line,1)
               $olddebug=$debug
            endif
            $Z = (left($L,2)=";!")
            $Y = $Y + $Z & 1
            if not $Z & not $ZZ
               $x=len($L)
               for $h=1 to $x
                  $A=asc(substr($L,$h,1))-32
                  $D = $D + ($A=2) & 1 & not $S
                  $S = $S + ($A=7) & 1 & not $D
                  if $debug
                     $Q = $D | $S
                     if $Q<>$oldQ
                        if $Q
                           WriteLog2($debugfile,"Quotes ON at: " + chr($A+32))
                        else
                           WriteLog2($debugfile,"Quotes OFF at: " + chr($A+32))
                        endif
                     endif
                     $oldQ=$Q
                  endif
                  if not $D & not $S & ($A=27)
                     $h=$x+1
                     if $debug
                        WriteLog2($debugfile,chr($A+32) + " " + ($A+32) + " Count=0 ")
                        $text="Comment found.  Ignore to EOL. Next character should be" +
                              " 1st char of new line."
                        WriteLog2($debugfile,$text)
                     endif
                  else
                     $=$+($Y & (($A>0 & $A<96) | $D | $S))
                     if $debug
                        $text=chr($A+32) + " " + ($A+32) + " Count=" +
                           ($Y & (($A>0 & $A<96) | $D | $S)) + "  " + $
                        WriteLog2($debugfile,$text)
                     endif
                  endif
               next
            endif
         endif
         $L=ReadLine(1)
      Until @error
   else
      "Bad File Name: $F" ?
      $="NA"
   endif
   if $D | $S
      ? "Mis-matched quotes. Probable score error." ?
   endif
   if $olddebug
         ? "Debug File: " +$debugfile ?
   endif
   $KixGolf=$
EndFunction

;--------------------------------------------------------------------------------------------------
;FUNCTION         WriteLog2()
;
;AUTHOR           Howard A. Bullock (hbullock@tycoelectronics.com)
;
;ACTION           Generic logging facility for scripts. Appends log entry to a file with an
;                 optional TimeStamp.
;
;SYNTAX           WriteLog2($File, $text, [0|1])
;
;PARAMETERS       $File (Required) -  String value
;                 $text (Required) -  String value
;                 $TimeStamp (Optional) Default(0) no TimeStamp (1 or 0)
;
;
;REMARKS          This function writes (appends) an optionally time stamped log entry to the file
;                 defined in function. This function searches for the first unused file handle,
;                 open the file, and write the entry. The file handle is then closed. When the
;                 function is unable to perform its it write the error is displayed in a message box.
;
;RETURNS          Nothing
;
;DEPENDENCIES     None
;
;EXAMPLES         WriteLog2("junk.txt","This is a test")
;                 WriteLog2("junk.txt","This is a test",0)
;                 WriteLog2("junk.txt","This is a test",1)
;
;
Function WriteLog2($File, $Text, optional $TimeStamp)
   dim $RC, $File, $text, $FH, $TimeStamp
   $FH=1
   $RC=Open ($FH, $File, 5)
   while $RC = -3
      $FH=$FH +1
      $RC=Open ($FH, $File, 5)
   Loop
   Select
      Case $RC=0
            if ($TimeStamp=1)
               $TimeStamp = @Date + " " + @Time + " - "
            else
               $TimeStamp = ""
            endif
            $RC=Writeline ($FH, $TimeStamp + $Text + @CRLF)
            $RC=Close ($FH)
      Case $RC=-2
         $text = "WriteLog2: Invalid file handle ($FH) specified when trying to Open $File."
         $RC=MessageBox ($text,"Script Error",48)
      Case $RC=-1
         $text = "WriteLog2: Invalid file name ($File) specified for log file."
         $RC=MessageBox ($text,"Script Error",48)
      Case $RC=>0
         $text = "System Error($RC) while attempting to open log file ($File)."
         $RC=MessageBox ($text,"Script Error",48)
   Endselect
EndFunction
;--------------------------------------------------------------------------------------------------

---

code:

---

[d:\work\admin\kixtart\kix 2001 - 4.10]KIX32.EXE anagram_test.kix

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 v3.0.2 score = 454

---

code:

---

$inputarray='a1,1a,a2,2a,a3,3a,a4,4a,a5,5a,a6,6a,a7,7a,a8,8a,a9,9a,hack,snooped,tables,
salt,spiff,feeling,spooned,last,grep,bleats,gas,ablest,fleeing,stable,slat,drive'
 
$correctoutput='1a a1,2a a2,3a a3,4a a4,5a a5,6a a6,7a a7,8a a8,9a a9,feeling fleeing,
snooped spooned,last salt slat,ablest bleats stable tables'
 

---

code:

---

1a a1
2a a2
3a a3
4a a4
5a a5
6a a6
7a a7
8a a8
9a a9
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 v3.0.2 score = 454

---

quote:

---

Each set of anagrams will not exceed 15 words per anagram

---

code:

---

$inputarray='0123456789abcdef,123456789abcdef0,23456789abcdef01,3456789abcdef012,
456789abcdef0123,56789abcdef01234,6789abcdef012345,789abcdef0123456,89abcdef01234567,
9abcdef012345678,admirer,parental,whatever,trifles,repost,kixtart,raddle,lifters,tartkiz,
atrophied,filters,warez,perseus,paternal,married,with,children,larded,hoes,poster,hose,
filets,prenatal,parlante,itself,stifler,aphrodite,stifle,portes,shoe,ladder,peruses,presto'
 
$correctoutput='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,0123456789abcdef
 123456789abcdef0 23456789abcdef01 3456789abcdef012 456789abcdef0123 56789abcdef01234
 6789abcdef012345 789abcdef0123456 89abcdef01234567 9abcdef012345678';
 

---

{edit} same as above... {/edit} And, as you said, it won't work on this one...

In that case, the code has to go "back" to a previous state with a score of 460 by sealeopard... And in this one, I can't cut any more bytes...

Later,
Madruga

But that does give me another idea for KixGolf 3.0.3... Be back soon...

[ 24. August 2002, 14:29: Message edited by: Fernando Madruga ]

code:

---

KixGolf v3.0.3 score = 460, running under KiXtart v4.10
{edit} another example:
KixGolf v3.0.3 score = 460, running under KiXtart v4.11 RC 1
{/edit}

---

code:

---

; KixGolf.kix  (Version 3)
;
$Version = "3.0.3"	; (2002/08/24@13:15) - Fernando Madruga
			; Now prints KiXtart version too
;
;$Version = "3.0.2"	; (2002/08/23@18:45) - Fernando Madruga
			; Now prints the version code with the score
;
; V 3.0.1	(2002/08/23@18:30) - Fernando Madruga
;		Fixed handling of CHR(127) and added version info
;
; This function scores the specified file and returns
; the KixGolf score. That is the total number of key strokes
; used to build a script not counting comments, spaces, tabs,
; or any ASCII character above 126.
;
; The script will start counting on "odd" (1,3,5,...) occurrences
; of ";!" and the script will stop counting after "even" (0,2,4,...)
; instances of ";!". Note that ";!" must be placed starting in column
; number 1.
;
;A debug mode has been added in this version. The debug mode
;is controlled with the use of ";~" at the beginning of the line like
; the count controller (;!) above. You start and stop debugging
;as many time as you like while counting is enabled.
;
;Debug data is written to a file in the same directory that this
;program resides. The file name is that of the target file name with
;".debug" as an extension. Data will only be written while counting is
;active.
;
;The data written if the character being analyzed, it's ASCII decimal
;value, if it was counted or not, and a running total.
;
;Syntax: %tmp%\kix32 kixgolf.kix $F=Kixgolf.kix
;


; $F must be initialized on the command line.
; Syntax: kix32 kixgolf.kix $F=test.kix
?
? "KixGolf v" + $Version + " score = " + KixGolf($F) + ", running under KiXtart v" + @KIX
?

;!
Function KixGolf($F)
   $debugfile=@ScriptDir+"\"+$F+".debug"
   Del $debugfile
   $Line=0
   $Y=0 $D=0 $S=0
   if open (1,$F) = 0
      Do
         if $L
            $Line = $Line + 1
            $ZZ = (left($L,2)=";~")
            $debug = $debug + $ZZ & 1
            if $debug & $olddebug<>$debug
               WriteLog2($debugfile,"Debug Started at Line: " + $Line,1)
               WriteLog2($debugfile,"--------------------------------------------------")
               $olddebug=$debug
            endif
            if not $debug & $olddebug<>$debug
               WriteLog2($debugfile,"--------------------------------------------------")
               WriteLog2($debugfile,"Debug Stopped at Line: " + $Line,1)
               $olddebug=$debug
            endif
            $Z = (left($L,2)=";!")
            $Y = $Y + $Z & 1
            if not $Z & not $ZZ
               $x=len($L)
               for $h=1 to $x
                  $A=asc(substr($L,$h,1))-32
                  $D = $D + ($A=2) & 1 & not $S
                  $S = $S + ($A=7) & 1 & not $D
                  if $debug
                     $Q = $D | $S
                     if $Q<>$oldQ
                        if $Q
                           WriteLog2($debugfile,"Quotes ON at: " + chr($A+32))
                        else
                           WriteLog2($debugfile,"Quotes OFF at: " + chr($A+32))
                        endif
                     endif
                     $oldQ=$Q
                  endif
                  if not $D & not $S & ($A=27)
                     $h=$x+1
                     if $debug
                        WriteLog2($debugfile,chr($A+32) + " " + ($A+32) + " Count=0 ")
                        $text="Comment found.  Ignore to EOL. Next character should be" +
                              " 1st char of new line."
                        WriteLog2($debugfile,$text)
                     endif
                  else
                     $=$+($Y & (($A>0 & $A<96) | $D | $S))
                     if $debug
                        $text=chr($A+32) + " " + ($A+32) + " Count=" +
                           ($Y & (($A>0 & $A<96) | $D | $S)) + "  " + $
                        WriteLog2($debugfile,$text)
                     endif
                  endif
               next
            endif
         endif
         $L=ReadLine(1)
      Until @error
   else
      "Bad File Name: $F" ?
      $="NA"
   endif
   if $D | $S
      ? "Mis-matched quotes. Probable score error." ?
   endif
   if $olddebug
         ? "Debug File: " +$debugfile ?
   endif
   $KixGolf=$
EndFunction

;--------------------------------------------------------------------------------------------------
;FUNCTION         WriteLog2()
;
;AUTHOR           Howard A. Bullock (hbullock@tycoelectronics.com)
;
;ACTION           Generic logging facility for scripts. Appends log entry to a file with an
;                 optional TimeStamp.
;
;SYNTAX           WriteLog2($File, $text, [0|1])
;
;PARAMETERS       $File (Required) -  String value
;                 $text (Required) -  String value
;                 $TimeStamp (Optional) Default(0) no TimeStamp (1 or 0)
;
;
;REMARKS          This function writes (appends) an optionally time stamped log entry to the file
;                 defined in function. This function searches for the first unused file handle,
;                 open the file, and write the entry. The file handle is then closed. When the
;                 function is unable to perform its it write the error is displayed in a message box.
;
;RETURNS          Nothing
;
;DEPENDENCIES     None
;
;EXAMPLES         WriteLog2("junk.txt","This is a test")
;                 WriteLog2("junk.txt","This is a test",0)
;                 WriteLog2("junk.txt","This is a test",1)
;
;
Function WriteLog2($File, $Text, optional $TimeStamp)
   dim $RC, $File, $text, $FH, $TimeStamp
   $FH=1
   $RC=Open ($FH, $File, 5)
   while $RC = -3
      $FH=$FH +1
      $RC=Open ($FH, $File, 5)
   Loop
   Select
      Case $RC=0
            if ($TimeStamp=1)
               $TimeStamp = @Date + " " + @Time + " - "
            else
               $TimeStamp = ""
            endif
            $RC=Writeline ($FH, $TimeStamp + $Text + @CRLF)
            $RC=Close ($FH)
      Case $RC=-2
         $text = "WriteLog2: Invalid file handle ($FH) specified when trying to Open $File."
         $RC=MessageBox ($text,"Script Error",48)
      Case $RC=-1
         $text = "WriteLog2: Invalid file name ($File) specified for log file."
         $RC=MessageBox ($text,"Script Error",48)
      Case $RC=>0
         $text = "System Error($RC) while attempting to open log file ($File)."
         $RC=MessageBox ($text,"Script Error",48)
   Endselect
EndFunction
;--------------------------------------------------------------------------------------------------

---

code:

---

010:angries earings erasing gainers graines
    reagins regains reginas searing seringa
010:angriest astringe ganister gantries granites
    ingrates rangiest reasting stearing tasering
010:easting eatings gainest genista ingates ingesta
    seating tangies teasing tsigane
010:ester reest reset retes steer stere teers teres
    terse trees
010:estrin inerts insert inters niters nitres sinter
    strine triens trines
010:lapse leaps pales peals pelas pleas salep sepal
    spale speal
011:anestri antsier nastier ratines resiant retains
    retinas retsina stainer starnie stearin
011:palest palets pastel peltas petals plaste plates
    pleats septal staple tepals
012:least leats salet setal slate stale steal stela
    taels tales teals tesla
013:alerts alters artels estral laster rastle ratels
    salter slater staler stelar talers tarsel
013:apers apres asper pares parse pears prase presa
    rapes reaps spaer spare spear
013:arets aster earst rates reast resat stare stear
    strae tares taser tears teras

---

So, if these were to be taken into consideration and the anagram_test
script were to be changed to use one of these, then the final scores
would be somewhat changed because the final set of codes
(after CHR($d) changed into $d) won't work with these...

If someone wants the perl code to play around (and yes, I know this
is not a perl BB, but this kind of script would have taken me AGES
to do in KiXtart!), please let me know and I'll post it. On my PC
(a PIII@1.100MHz with 512MB) only takes 11 seconds to read in the
263.000+ words file and put out the 20.639 possible anagrams!

You can even use it just to look for anagrams for a given word, or
restrict anagrams only for words between x and y characters, based
on the dictionary provided. (And, of course, you can use your own
dictionary!)

Also, back to the contest, where it says:

quote:

---

463 = Fernando Madruga

---

code:

---

feeling fleeing
snooped spooned
last salt slat
ablest bleats stable tables
alerts alters artels estral laster rastle ratels salter slater
 staler stelar talers tarsel
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 v3.0.3 score = 466, running under KiXtart v4.11 RC 1
-----------------------------------
feeling fleeing
snooped spooned
last salt slat
ablest bleats stable tables
alerts alters artels estral laster rastle ratels salter slater
 staler stelar talers tarsel
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 v3.0.3 score = 463, running under KiXtart v4.11 RC 1
-----------------------------------
feeling fleeing
snooped spooned
last salt slat
ablest bleats stable tables
alerts alters artels estral laster rastle ratels salter slater
 staler stelar talers tarsel
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 v3.0.3 score = 460, running under KiXtart v4.11 RC 1
-----------------------------------

 alerts alters artels estral laster rastle ratels salter slater 
 staler stelar talers tarsel
The output array element  alerts alters artels estral laster rastle
 ratels salter slater staler stelincorrect tarsel is
feeling fleeing
The output array element feeling fleeing is incorrect
snooped spooned
The output array element snooped spooned is incorrect
last salt slat
The output array element last salt slat is incorrect
ablest bleats stable tables
The output array element ablest bleats stable tables is incorrect
UDF failed 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 failed validation
 
kix32 Kixgolf3.kix $f=anagram_test.kix
 
KixGolf v3.0.3 score = 457, running under KiXtart v4.11 RC 1
-----------------------------------

 alerts alters artels estral laster rastle ratels salter slater 
 staler stelar talers tarsel
The output array element  alerts alters artels estral laster rastle
 ratels salter slater staler stelincorrect tarsel is
feeling fleeing
The output array element feeling fleeing is incorrect
snooped spooned
The output array element snooped spooned is incorrect
last salt slat
The output array element last salt slat is incorrect
ablest bleats stable tables
The output array element ablest bleats stable tables is incorrect
UDF failed 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 failed validation
 
kix32 Kixgolf3.kix $f=anagram_test.kix
 
KixGolf v3.0.3 score = 454, running under KiXtart v4.11 RC 1
-----------------------------------
 

---

So, as you all can see from this long post, the last code passing
all tests is 460 by sealeopard based on ??? by ???
(getting too lazy to look elsewhere for this info! )

HTH,
Madruga

P.S.: Forgot to include the updated anagram_test.
In order to keep this short, I'll just include
the two changed lines from the 1st set of tests:

code:

---

 
; these were wrapped for display!
 
$inputarray='gas,bleats,stable,fleeing,artels,ratels,alters,talers,
ablest,spiff,hack,stelar,staler,tables,feeling,spooned,snooped,grep,
estral,alerts,tarsel,slat,salt,last,salter,slater,laster,rastle,drive'
 
$correctoutput='feeling fleeing,snooped spooned,last salt slat,
ablest bleats stable tables,alerts alters artels estral laster 
rastle ratels salter slater staler stelar talers tarsel'
 

---