-module a. -export[m/0]. m()->case io:get_line('') of eof->k;S->io:format("~s",[re:replace(S,"(.)(.*)(.)","\\3\\2\\1")]),m() end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page