burrows-wheeler.clj

#!/usr/bin/clojure
; Created: Fri Jan  9 16:10:56 EET 2015
; encoding: utf-8


(defn burrows-wheeler [s]
  (let [size (count s)]
    (->>
      (repeat size s)
      (apply str)
      (partition size 1)
      (take size)

      vec
      (sort-by #(str (first %1)))

      (map last)
      (apply str))))

(prn
  (burrows-wheeler "banana"))