RosettaCodeData/Task/Move-to-front-algorithm/Zkl/move-to-front-algorithm-2.zkl
2017-09-25 22:28:19 +02:00

6 lines
190 B
Text

fcn decode(list){ //-->String
st:=["a".."z"].pump(String); //"abcd..z"
sink:=Sink(String);
list.reduce('wrap(st,n){ c:=st[n]; sink.write(c); c+st.del(n); },st);
sink.close();
}