Burrows–Wheeler transform: Difference between revisions
→{{header|TXR}}: Replace collect-each in bwt with mapcar.
(→{{header|TXR}}: Shorter code, particularly ibwt; sanity check in bwt.) |
(→{{header|TXR}}: Replace collect-each in bwt with mapcar.) |
||
Line 2,670:
(error "~s: input may not contain ~a" %fun% eof))
(let* ((seof `@str@eof`))
(flow
(defun ibwt (str)
| |||