-module(test).\x0d -export([m/0]).\x0d m()->m(io:get_line(""),0).\x0d m([],_)->0;m([H|T],L)->m(T,L+1),io:format("~*c~c~s~*c\n",[L,$ ,H,[[$ ,X]||X<-T],L,$ ]).\x0d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page