Burrows–Wheeler transform: Difference between revisions
m
→{{header|TXR}}: let* -> let
(→{{header|TXR}}: Add missing definition of eof!) |
m (→{{header|TXR}}: let* -> let) |
||
Line 2,671:
(if (contains eof str)
(error "~s: input may not contain ~a" %fun% eof))
(let
(flow 0..(len seof) (mapcar (op rot seof)) sort (mappend last))))
| |||