Anonymous user
Burrows–Wheeler transform: Difference between revisions
→{{header|J}}
Line 809:
NB. demonstrate the transform
tests[0] = "banana";
tests[1] = "appellee";
Line 854:
tail=. {:
mark=. STX , ,&ETX
EXPECT=. ETX , 'ANNB' , STX , 'AA'
assert. EXPECT -:
unscramble=. (,Rank 0 1 sort)^:(#@[)&(i.0)
Line 864:
curtail=. }:
erase_mark =. behead @: curtail
assert. 'BANANA' -:
obverse=. :.
fixed=. f.
bwt=:
assert (-: ]&.:bwt)'same under transformation'
| |||