trivial encoder by 51b

-module(t).
-export([m/0]).
m()->F={io,format},G={io,get_line},S=G(''),if"e"<S->T=G(''),[F("~.16B",[C])||C<-T++if"b"<T->"
";0<1->""end];0<1->{_,[N]}=io:fread('',"~16u"),F(f(N))end.
f(0)->[];f(N)->f(N bsr 8)++[N band$\xff].

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page