MY FAVOURITE ALGORITHM @tomstuart / BaRuCo / 2014-09-12

BURROWS— WHEELER TRANSFORM

B A N A N A

B A N A N A B A N A N A B A N A N A B A N A N A B A N A N A B A N A N A

B A N A N A B A N A N A B A N A N A B A N A N A B A N A N A B A N A N A

B A N A N A B A N A N A B A N A N A B A N A N A B A N A N A B A N A N A N N A B A A “NNBAAA”

def burrows_wheeler(string) chars = string.chars ! chars.each_index. map(&chars.method(:rotate)). sort.map(&:last).join end

>> string = 'banana' => "banana"

>> string = 'banana' => "banana" ! >> chars = string.chars => ["b", "a", "n", "a", "n", "a"]

>> string = 'banana' => "banana" ! >> chars = string.chars => ["b", "a", "n", "a", "n", "a"] ! >> chars.each_index ! ! => #

>> string = 'banana' => "banana" ! >> chars = string.chars => ["b", "a", "n", "a", "n", "a"] ! >> chars.each_index. map(&chars.method(:rotate)) ! => [ ["b", "a", "n", "a", "n", "a"], ["a", "n", "a", "n", "a", "b"], ["n", "a", "n", "a", "b", "a"], ["a", "n", "a", "b", "a", "n"], ["n", "a", "b", "a", "n", "a"], ["a", "b", "a", "n", "a", "n"] ]

>> string = 'banana' => "banana" ! >> chars = string.chars => ["b", "a", "n", "a", "n", "a"] ! >> chars.each_index. map(&chars.method(:rotate)). sort => [ ["a", "b", "a", "n", "a", "n"], ["a", "n", "a", "b", "a", "n"], ["a", "n", "a", "n", "a", "b"], ["b", "a", "n", "a", "n", "a"], ["n", "a", "b", "a", "n", "a"], ["n", "a", "n", "a", "b", "a"] ]

>> string = 'banana' => "banana" ! >> chars = string.chars => ["b", "a", "n", "a", "n", "a"] ! >> chars.each_index. map(&chars.method(:rotate)). sort.map(&:last) => ["n", "n", "b", "a", "a", "a"]

>> string = 'banana' => "banana" ! >> chars = string.chars => ["b", "a", "n", "a", "n", "a"] ! >> chars.each_index. map(&chars.method(:rotate)). sort.map(&:last).join => "nnbaaa"

>> burrows_wheeler('banana') => "nnbaaa" >> burrows_wheeler('The rain in Spain stays mainly in the plain') => "nnyseenn nrplmthhtT aa aapn iiiiiiS y s la"

!

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? “NNBAAA”

A B A N A N ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? “NNBAAA”

? A ? ? ? ? ? B ? ? ? ? ? ? A ? ? ? ? ? ? N ? ? ? ? ? ? A ? ? ? ? ? ? N “NNBAAA”

? A ? ? ? ? ? B ? ? ? ? ? ? A ? ? ? ? ? ? N ? ? ? ? ? ? A ? ? ? ? ? ? N “NNBAAA”

A B A N A N B ? ? ? ? A ? ? ? ? ? N ? ? ? ? ? A ? ? ? ? ? N ? ? ? ? ? A “NNBAAA”

? A B ? ? ? ? B A ? ? ? ? ? A N ? ? ? ? ? N A ? ? ? ? ? A N ? A ? ? ? N “NNBAAA”

? A B ? ? ? ? B A ? ? ? ? ? A N ? ? ? ? ? N A ? ? ? ? ? A N ? A ? ? ? N “NNBAAA”

A B A N A N B A ? ? ? A N ? ? ? ? N A ? ? ? ? A N ? ? ? ? N A B ? ? ? A “NNBAAA”

? A B A ? ? ? B A N ? ? ? ? A N A ? ? ? ? N A N ? A ? ? A N ? A B ? ? N “NNBAAA”

? A B A ? ? ? B A N ? ? ? ? A N A ? ? ? ? N A N ? A ? ? A N ? A B ? ? N “NNBAAA”

A B A N A N B A N ? ? A N A ? ? ? N A N ? ? ? A N A B ? ? N A B A ? ? A “NNBAAA”

? A B A N ? ? B A N A ? ? ? A N A N ? A ? N A N ? A B ? A N ? A B A ? N “NNBAAA”

? A B A N ? ? B A N A ? ? ? A N A N ? A ? N A N ? A B ? A N ? A B A ? N “NNBAAA”

A B A N A N B A N A ? A N A N ? ? N A N A B ? A N A B A ? N A B A N ? A “NNBAAA”

? A B A N A ? B A N A N ? A A N A N ? A B N A N ? A B A A N ? A B A N N “NNBAAA”

? A B A N A ? B A N A N ? A A N A N ? A B N A N ? A B A A N ? A B A N N “NNBAAA”

A A N N B A N A N B N A N A B A A N A B A N A A “NNBAAA” B A A N A N A B A N N A

A A N N B A N A N B N A N A B A A N A B A N A A “NNBAAA” B A N A N A B A A N A N A B A N N A

def inverse_burrows_wheeler(string) chars = string.chars ! chars. inject([]) { |table| chars.zip(table).sort }. map(&:join) end

>> inverse_burrows_wheeler('nnbaaa') => ["abanan", "anaban", "ananab", "banana", "nabana", "nanaba"]

>> inverse_burrows_wheeler('nnyseenn nrplmthhtT aa aapn iiiiiiS y s la')
 => [" Spain stays mainly in the plainThe rain in", " in Spain stays mainly in the plainThe rain", " in the plainThe rain in Spain stays mainly", " mainly in the plainThe rain in Spain stays", " plainThe rain in Spain stays mainly in the", " rain in Spain stays mainly in the plainThe", " stays mainly in the plainThe rain in Spain", " the plainThe rain in Spain stays mainly in", "Spain stays mainly in the plainThe rain in ", "The rain in Spain stays mainly in the plain", "ain in Spain stays mainly in the plainThe r", "ain stays mainly in the plainThe rain in Sp", "ainThe rain in Spain stays mainly in the pl", "ainly in the plainThe rain in Spain stays m", "ays mainly in the plainThe rain in Spain st", "e plainThe rain in Spain stays mainly in th", "e rain in Spain stays mainly in the plainTh", "he plainThe rain in Spain stays mainly in t", "he rain in Spain stays mainly in the plainT", "in Spain stays mainly in the plainThe rain ", "in in Spain stays mainly in the plainThe ra", "in stays mainly in the plainThe rain in Spa", "in the plainThe rain in Spain stays mainly ", "inThe rain in Spain stays mainly in the pla", "inly in the plainThe rain in Spain stays ma", "lainThe rain in Spain stays mainly in the p", "ly in the plainThe rain in Spain stays main", "mainly in the plainThe rain in Spain stays ", "n Spain stays mainly in the plainThe rain i", "n in Spain stays mainly in the plainThe rai", "n stays mainly in the plainThe rain in Spai", "n the plainThe rain in Spain stays mainly i", "nThe rain in Spain stays mainly in the plai", "nly in the plainThe rain in Spain stays mai", "pain stays mainly in the plainThe rain in S", "plainThe rain in Spain stays mainly in the ", "rain in Spain stays mainly in the plainThe ", "s mainly in the plainThe rain in Spain stay", "stays mainly in the plainThe rain in Spain ", "tays mainly in the plainThe rain in Spain s", "the plainThe rain in Spain stays mainly in ", "y in the plainThe rain in Spain stays mainl", "ys mainly in the plainThe rain in Spain sta"]

def burrows_wheeler(string) chars = string.chars + ['$'] ! chars.each_index. map(&chars.method(:rotate)). sort.map(&:last).join end ! def inverse_burrows_wheeler(string) chars = string.chars ! chars. inject([]) { |table| chars.zip(table).sort }. map(&:join).detect { |s| s.end_with?('$') }.chop end

>> burrows_wheeler('banana')
 => "annb$aa" ! >> inverse_burrows_wheeler('annb$aa')
 => "banana" ! >> burrows_wheeler('The rain in Spain stays mainly in the plain')
 => "nnyseennn $rplmthhtT aa aapn iiiiiiS y s la" ! >> inverse_burrows_wheeler('nnyseennn $rplmthhtT aa aapn iiiiiiS y s la')
 => "The rain in Spain stays mainly in the plain"

thanks! @tomstuart / [email protected]