quote:

---

KiXtart
KiXtart Version = 4.20 Beta 1
KiXGolf Script = kixgolf_bwt.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium II
Speed = 400 MHz

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXtart Golf Score
Tournament = KiXtart Golf: Burrows-Wheeler Transform
Date & Time = 2002/12/29 01:16:25
KiXGolf Result = passed
KiXGolf Score = 197
String length = 749
Elapsed time = 11346 msec


Thank you for participating in KiXtart Golf!

---

code:

---

Function BWTDecode($e,$o)
 Dim $,$v,$i
 For $i=0 to 255
  For $=1 to Len($e)
   If ASC(SubStr($e,$))=$i
    $v=$v+' '+($-1)
   EndIf
  Next
 Next
 $=''
 For $i=1 to Len($e)
  $=$+SubStr($e,1+$o,1)
  $o=Split($v)[1+$o]
 Next
 $BWTDecode=$
EndFunction

---