Burrows–Wheeler transform: Difference between revisions
→{{header|Perl 6}}: Duh. thinko
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Remove some unnecessary variables) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Duh. thinko) |
||
Line 349:
sub ɯɹoɟsuɐɹʇ (Str $s) {
my @t = $s.comb.sort;
@t = ($s.comb Z~ @t).sort for 1..^$s.chars;
@t.first( *.
}
Line 365:
<pre>Original: BANANA
Transformed: BNN👍AAA
Inverse transformed:
Original: dogwood
Transformed: 👍ooodwgd
Inverse transformed:
Original: SIX.MIXED.PIXIES.SIFT.SIXTY.PIXIE.DUST.BOXES
Transformed: TEXYDST.E.IXIXIXXSSMPPS.B..E.👍.UESFXDIIOIIITS
Inverse transformed: SIX.MIXED.PIXIES.SIFT.SIXTY.PIXIE.DUST.
Original: TO BE OR NOT TO BE OR WANT TO BE OR NOT?
Transformed: OOORREEETTRTW BBB ATTT NNOOONOO👍 ?
Inverse transformed: TO BE OR NOT TO BE OR WANT TO BE OR NOT?
Original: Oops👍
| |||