6 lines
203 B
Text
6 lines
203 B
Text
fcn encode(text){ //-->List
|
|
st:=["a".."z"].pump(Data); //"abcd..z" as byte array
|
|
text.reduce(fcn(st,c,sink){
|
|
n:=st.index(c); sink.write(n); st.del(n).insert(0,c); },st,sink:=L());
|
|
sink;
|
|
}
|