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,1))
            $d=$d+" "+$b
         endif
      next
   next
   $=$+1
   for $c=2 to $b
      $BWTDecode=$BWTDecode+substr($s,$,1)
      $=split($d)[$]
   next
endfunction

---

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

---

code:

---

function BWTDecode($s, $o)
   dim $i,$j,$m
   $m = len($s)
   dim $[$m]
   for $i = 1 to $m
      $j=$i
      while substr($s,$i,1) < substr($s,$[$j-1],1)
         $[$j] = $[$j-1]
         $j=$j-1
      loop
      $[$j]=$i
   next
   for $j=1 to $m
      $BWTDecode = $BWTDecode + substr($s,$o+1,1)
      $o=$[$o+1]-1
   next
endfunction

---

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 22:15:32
KiXGolf Result = passed
KiXGolf Score = 191
String length = 749
Elapsed time = 11507 msec


Thank you for participating in KiXtart Golf!

---

code:

---

function bwtdecode($s, $x)
 
 dim $,$j,$k,$n
 
 $n = len($s)-1
 
 dim $t[$n],$l[$n],$c[255]
 
 for $ = 0 to $n
  $l[$] = asc(substr($s,$+1,1))
  $j = $l[$]
  $t[$] = $c[$j]
  $c[$j] = $c[$j] + 1
 next
 
 for $ = 0 to 126
  $k = $k + $c[$]
  $c[$] = $k - $c[$]
 next
 
 for $ = 0 to $n
  $x = $t[$x] + $c[$l[$x]]
  $bwtdecode = chr($l[$x]) + $bwtdecode
 next
 
endfunction

---

code:

---

$j = $l[$]  
$t[$] = $c[$j]
$c[$j] = $c[$j] + 1

---

code:

---

$j = $l[$]  
$c[$j] = $c[$j] + 1

---

code:

---

$c[$j] = $c[$l[$]] + 1

---

code:

---

$c[$l[$]] = $c[$l[$]] + 1

---