code:

---

function BWTDecode($s, $)
   dim $b,$c,$d
   for $c=1 to 255
      for $b=1 to len($s)
         if $c=asc(substr($s,$b))
            $d=$d+" "+$b
         endif
      next
   next
   $=$+1
   for $c=2 to $b
      $BWTDecode=$BWTDecode+substr($s,$,1)
      $=split($d)[$]
   next
endfunction

---

code:

---

KiXtart
KiXtart Version  = 4.12
KiXGolf Script   = kixgolf_bwt.kix

Computer
OS               = Windows 2000 Professional
CPU              = Intel Pentium III
Speed            = 730 MHz
Memory           = 382 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Burrows-Wheeler Transform
Date & Time      = 2003/01/07 09:16:46
KiXGolf Result   = passed
KiXGolf Score    = 191
 
Extended KiXtart Golf Statistics
Number of Repetitions          = 10
Start Time                     = 2003/01/07 09:14:41.152
Stop Time                      = 2003/01/07 09:16:45.884
Running Time                   = 0000/00/00 00:02:04.732
KernelModeTime [ms]            = 00:00:00.015
Avg. KernelModeTime [ms]       = 00:00:00.001
UserModeTime [ms]              = 00:02:01.671
Avg. UserModeTime [ms]         = 00:00:12.167
Execution Time [ms]            = 00:02:01.687
Avg. Execution Time [ms]       = 00:00:12.168
delta HandleCount              = 5
delta ThreadCount              = 1
delta PeakWorkingSetSize [kB]  = 0
delta WorkingSetSize [kB]      = 204
KiXGolf Score                  = 191
KiXGolf Weighting              = 0.5
Running Time Score [s]         = 12.168
Running Time Weighting         = 0.25
Memory Score [kB]              = 204
Memory Weigthing               = 0.25
Extended KiXGolf Score         = 149.542
 
Thank you for participating in KiXtart Golf!

---