Anonymous user
Burrows–Wheeler transform: Difference between revisions
→{{header|Haskell}}
(Initial Haskell version.) |
|||
Line 298:
invBwt :: Ord a => BWT a -> [a]
invBwt (BWT xs) = let ys =
in unpos $ fromJust $ find ((== Post) . last) ys
where step
|