char pyramid by eriksoe

-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