-module(e). -export([m/0]). m()->m(io:get_line([])). m([C,_|T])->io:put_chars([C]),m(T);m([C])->m([C,C]);m(_)->k.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page