packed UTF 9 by 51b

-module(u).
-export([m/0]).
m()->f(0,0,io:get_line('')).
f(_,_,[])->x;f(A,B,[C,D,_|T])->X=C rem 39*16+D rem 39-153 bsl A+B,if A>0->io:format("~c",[X]),f(A-1,X bsr 9,T);A<1->f(8,X,T)end.

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

download

return to the top page